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ABSTRACT 


The  aesiqn  sncJ^  i mo  1 ement  at  i or  an  extension  to  tne 
Sasic  orograwminn  I anquaae  for  use  on  the  PUP-Il/50  computer 
system  has  been  Sescribe'i.  The  implementation  consists  of  a 
compiler  which  generates  code  to  be  assembled  ang  loaded 
into  the  computer  system.  An  interface  with  C orograms  in 
the  system  library#  which  allows  extended  Basic  to  perform 
as  an  extensive  graphics  language#  has  been  oiscusseo.  Tne 
design  goals#  solutions#  ang  recommendations  for  further  ex- 
pansion of  the  system  have  been  oresented.  The  com, oiler  was 
implemented  in  the  C-orogramming  language  with  the  L-jIx 
operating  system  as  suoported  by  the  POP-11/50  at  the  Naval 
Postgraduate  School  Computer  Laboratory. 
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I.  INTRODUCTION 


A.  HISTORY  OF  THE  BASIC  LANGUAGE 

The  Beginner's  All-Puroose  Symbolic  Instuction  Code 
(BASIC)  was  develooed  at  Dartmouth  Col'ege  to  orovide  a sim- 
ole/  interactive  1 anauaqe  Yor  liberal  arts  students  with 
soecific  aoolications  in  scientific  comoutation.  In  order 
to  meet  this  goaI»  only  a limited  vocabulary  of  instructions 
was  included  in  the  oriainal  definition  of  Basic.  There  was 
no  concent  of  data  typing  and  there  were  no  default  condi- 
tions to  memorize.  The  interactive  nature  of  programming 
provided  an  ideal  man/machine  interface  for  creating  ana  de- 
bugging programs*  while  the  features  of  the  language  were 
well-suited  for  the  expression  of  enaineening  and  mathemat- 
ics problems.  Since  this  environment  satisfieo  the  needs  of 
a wide  range  of  potential  computer  users*  Basic  was  procured 
for  adaptation  ov  a number  of  universities  and  commercial 
firms.  In  particular*  timesharing  service  bureaus  expanded 
computer  usage  among  non-comouter  specialists  by  providing 
its  customers  with  the  Basic  language.  This  lea  to  tie 
development  of  numerous  dialects  of  Basic  and  to  many  exten- 


sions intendea  to  satisfy  the  unique  needs  of  various  users  j 


As  tHe  use  of  Basic  increased  and  extensions  to 


1 anguaae  became  'nore  widesoread»  the  neeo  for  sta^dardi^a- 
t i on  oecame  an  industry  »<ide  concern.  In  197a,  this  concern 
finally  led  to  the  formation  of  the  X3J2  committee  of  tne 
American  National  Standards  Institute  which  was  tasked  with 
formulating  a oroDOsed  standard  for  the  Basic  oroaramming 
language.  The  result  of  an  extensive  effort  was  the  Pro- 
posed American  National  Standards  Institute  (ANSI)  report  on 
a proposed  standard  for  'Minimal  Basic  I^l  . The  proposed 
standard  established  a minimum  set  of  features  which  should 
be  included  in  the  implementation  of  a Basic  language  pro- 
cessor. while  the  proposed  standard  orovided  arithmetic  ang 
very  simple  string  prccessina  capabilities,  it  did  not  con- 
sider the  more  extensive  features,  i.e.  mu  1 t i -o  r og  r arr  inter- 
facing and  extensive  predefined  functions,  which  haa  ini- 
tially led  to  the  neeo  for  s t anda r d i z a t i on . In  a recent  ar- 
ticle (31/  Lientz  compared  the  different  commercially  avail- 
able Basic  1 anguaoe  processors.  This  survey  indicated  that 
most  Basic  processors  provided  similar  features  and  included 
extensive  facilities  beyond  those  in  the  oroposeo  Aim  SI  stan- 
da  rd . 

8.  OBJECTIVES  OF  THE  EXTENDED  BASIC  LANGUAGE 

Extended  Basic  was  designed  to  provide  all  the  arithmet- 
ic processing  features  of  the  proposed  standard  for  Basic  as 
well  as  extensions  ann  enhancements  to  the  language  for  use 
at  the  Naval  Postgraduate  School.  These  extensions  included 

Q 
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Tiu  1 t i "d  i men  s i on  a 1 arravs»  loaical  operators  for  numeric  ana 
string  Quantities#  string  man i ou 1 a t i on  , ana  seauential  ac- 
cess to  external  files.  Further#  extended  Basic  retainea 
the  original  concents  of  Dartmouth  Basic  while  freeing  the 
programmer  from  many  of  the  original  limitations.  Enhance- 
ments included  improved  control  structures  and  features  to 
enhance  increased  readability.  Extenoed  Basic  also  attempt- 
ed to  maintain  grammatical  compaticilitv  witr  existinq  ex- 
tensions to  Basic#  particularly  those  in  use  at  the  Naval 
Postgraauate  School. 

An  additional  goal  of  extended  Basic  was  to  oroviae 
non-computer  scientists  with  a more  managable  high  level 
language  capable  of  interfacinq  with  other  subsystems  suo- 
portea  on  the  PDP-11  at  'Javal  Postgraauate  School.  Examples 
of  such  subsystems  are  the  procedures  which  arive  the  vari- 
ous graphics  devices  foung  in  the  computer  laboratory.  The 
primary  UNIX  system  graphics  language  is  C till  which  pro- 
vides support  for  the  subsystems  in  the  PDP-11. 

Currently  included  within  UNIX  are  a dialect  of  Fortran 
1121#  the  Fortran  preprocessor  [131  PAT FOR,  an  interpreter 
for  a highly  specialized  dialect  of  Basic  [14],  produced  by 
Bell  Laboratories  [4],  Digital  Equipment  Corporation's  FOR- 
TRAN IV  PLUS#  and  the  UNIX  assembler  [71  . None  of  these 
languages  were  entirely  suited  to  this  special  oraphics  en- 
vironment as  they  existed  in  the  svstem.  Extenaeo  Basic  is 
an  easily  learned  language  which  is  reaaily  adaptable  to  the 
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student  environment  and  enhances  tne  graphics  c aoah i 1 i t i es 


in  the  1 aboratory . 

Unlike  many  existing  i mo  1 emen t a t i on s » extended  Basic  was 
not  implementea  as  a purely  interpretive  language.  A source 
program  is  compiled/  generating  an  assemoly  language  file. 
This  code  is  then  assembled  and  loaded  with  the  Basic  1 i - 
brarv/  and  other  lioraries  as  specified  by  the  user/  includ- 
ing the  C library/  the  various  graphics  device  libraries/ 
and  any  user  designed  libraries  which  may  exist  for  particu- 
lar implementations.  The  compilation/  assembly  and  loading 
actions  are  called  by  a program/  LBAx,  which  is  resident  in 
the  UNIX  system.  Usage  of  tho  program  is  described  in  Ac- 
oend i x II. 


LANGUAGE  SPEC  I F I C A T I UM 


In  the  following  section,  the  Oartrrouth  Basic  1 anquaae 
and  the  ANSI  oroDOSed  standard  will  he  reviewed,  followeo  by 
a discussion  of  the  features  of  extended  Basic  which  differ 
from  Dartmouth  Basic  and  the  oroDOSeo  ANSI  stangard.  These 
features  include  extended  arithmetic  orocessinq,  imoroved 
readability,  exoandea  control  structures,  string  manicula- 
tion,  external  file  access,  and  program  access  to  system 
software  for  graohics  interface. 

A.  The  PROPOSED  STANDApn  FOP  BASIC 
1.  Dartmouth  Basic 

Dartmouth  Basic  is  a statement  oriented  language. 
Each  statement  consists  of  a line  numoer  and  a command.  Da- 
ta is  either  numeric  real  or  character  string  with  no  dis- 
tinction being  made  between  tyoes  of  numeric  data.  Identif- 
iers terminated  oy  a dollar  sian  refer  to  string  varianles, 
while  all  other  identifiers  reference  numeric  quantities. 
Identifiers  consist  of  only  a sinqle  letter  or  a letter  fol- 
lowed by  a dollar  sign.  Arithmetic  ooerations,  defined  on 
numeric  data  only,  are  reoresented  ov  tne  infix  operators  +, 
-,  *,  /,  and  T (exponentiation).  Unary  operations  are  de- 
fined by  the  orefix  operators  t and  -.  Both  data  types  may 
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be  compared  using  the  infix  relational  operators  < 


< = 


> 


E 


I. 


>~r  and  <>.  One  and  two  dimensional  numeric  arrays  are  sud“ 
ported.  Finally#  a limited  number  of  predefined  alnorithms 
perform  elementary  function  evaluation  (51.  These  include 
ABS,  ATN,  COS,  EXP,  INT,  LOG,  PNO,  SGN,  SIw,  SQR,  and  TAM. 
A complete  description  of  these  oreoefineo  functions  is 
presented  in  Appendix  I. 

Dartmouth  Basic  is  intended  to  be  an  interactive 
language  with  both  editing  and  orcdram  e*ecution  occurinq  in 
the  same  environment.  Therefore,  most  Dartmouth  style  Basic 
implementations  rely  on  line  numbers  to  olay  an  imcortant 
part  in  tne  edition  function  of  Basic. 


2.  The  Proposed  AMSI  Standard 

The  proposed  ANSI  standard  (21  incorporates  all  tne 
features  of  Dartmouth  Basic  ana  ados  the  following  st=*te~ 
men  t s : 

ON  randomize;  DEF 
OPTION  STOP 

With  the  exception  of  the  OPTION  statement,  most  existing 
Basic  implementations  include  all  of  these  additional 
features.  These  extensions  are  described  as  they  exist  in 
this  implementation  in  Aooendix  I.  The  OPTION  statement  is 
used  to  specify  whether  the  lower  bound  of  an  array  is  zero 
or  one  . 
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'^ost  existinq  Basic  1 anquaqe  orocessors  qo  well 
beyond  the  oroDoseci  ANSI  standard  to  crovide  file-hanqlinq 
ability/  tormatted  outout/  strinq  man i ou 1 a t i on / matrix 
ooerations/  and  a multitude  o*  oredefinea  functions.  The 
survey  by  Lientz  C3]  oocuments  these  extensions  for  many 
large  and  mini-comouter  manufacturers/  and  for  a number  of 
timesharing  services. 

8.  FEATUHFS  OF  THE  EXTENDED  BASIC  LANGUAGE 

Extended  Basic  was  desioned  to  maintain  comcat i b i 1 i t y 
with  the  proposed  ANSI  standard  while  extenqinq  the  language 
to  incorporate  such  features  as  strinq  processing  and  exter- 
nal file  access.  Enhancements  were  also  included  to  provide 
additional  control  structures  and  increased  reaoaoilitv.  In 
this  section  the  features  of  extended  Basic  which  do  not  ap- 
pear in  the  proposed  ANSI  standard  will  be  discussed.  Ao- 
oendix  I includes  a complete  description  of  the  language. 

1.  Arithmetic  Processing 

Extended  Basic  adds  to  arithmetic  processing  by  sup- 
porting multiple  dimensional  arrays.  All  arrays  must  be 
dimensioned  orior  to  usage  in  the  program  and  the  same  iden- 
tifier may  not  serve  as  both  an  array/  whose  elements  are 
subscripted/  and  a simple  non-subsc r i ot ed  variable.  Lootcal 
binary  operators  AND/  OR/  XOR  (exclusive  or)/  and  the  unary 
operator  NOT  are  orovided  for  the  logical  evaluation  of 


and  1=  (not  poual)  have  been  adaed  to  the  set  ot  Icqical 


ooerators  tor  c omoa t ab i I i t v with  existing  languages.  User- 
detined  functions^  defined  using  a OEF  state^rentf  may  have 
any  number  of  oarameters.  However,  as  with  FORTHAN,  every 
function  must  have  at  least  one  oarameter.  Functions  “ust 
be  defined  prior  to  aooearance.  A'hile  functions  may  refer 
to  other  functions  within  the  bony  of  the  oefinition,  recur- 
sive references  are  not  oermitteg. 

The  OPTION  statement  is  not  implemented.  Since  the 
lower  bound  of  every  array  is  always  zero  and  there  are  n+1 
elements  allocated  by  the  compiler  for  every  array,  the  user 
is  provideo  the  OPTION  feature  by  gefault.  Due  to  the 
manner  in  which  the  UNIX  system  effects  external  system 
calls,  undimensioned  subscripted  variables  should  not  be 
used,  as  is  conditionally  allowed  in  Dartmouth  Basic  ana  the 
proposeo  ANSI  standarc. 

Arithmetic  constants  may  be  written  in  either  in- 
teger or  decimal  form.  All  constants  are  viewed  internally 
as  double  precision  floating  point  numbers.  bcientific  no- 
tation is  not  implemented.  Numeric  constants  are  outout  in 
decimal  form  only.  The  columnar  width  of  numeric  output  may 
be  specified  using  the  COL  function.  If  columnar  width  is 
not  specified,  COL  defaults  to  10  columns.  If  the  value 
exceeds  the  prescribed  width,  the  field  is  filled  with  a 
string  of  ouestion  marks. 
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2 . Readability 

Readability  has  oeen  innorovefi  by  increasing  variable 
name  lengthy  oermittinq  free  form  input  with  statement  con- 
tinuation# and  by  not  requiring  line  numbers  on  all  state- 
ments in  the  program.  H i s t o r i c a 1 1 y » Basic  permitted  vari- 
able names  consisting  of  a single  letter  or  a letter  fol~ 
lowed  by  a number.  This  makes  large  orograms  cifficult  to 
understana  and  debug.  Extended  Basic  allows  variacle  names 
to  consist  of  uD  to  four  a 1 oh a-nume r i c characters  of  botn 
uDoer  and  lower  case#  exceot  strina  variables  wnich  should 
include  'i'  in  the  second  or  third  character  position. 
Predefined  functions  may  be  written  in  uoper  or  lower  case; 
however#  all  characters  in  the  name  must  be  of  the  same 
case . 

Basic  t r ad i t i ona 1 1 V has  restricted  each  statement  to 
one  line.  Extended  Basic  Provides  the  "at"  sign  ( <3  ) as  a 
continuation  character#  allowing  multiple  program  lines  to 
appear  as  one  statement  to  the  compiler.  This  is  Particu- 
larly valuable  when  using  nested  IF  statements  with  the  ELSE 
clause  followed  by  another  IF  statement.  411  of  the  mempers 
of  the  primary  IF  statement  could  not  be  physically  con- 
tained on  one  line  on  conventional  timesharing  input/outcut 
devices.  The  following  example  demonstrates  the  improved 
readability  provided  by  continuation: 


1 h 


. • 


i f K 


V then  a) 


[ 

1 

i 

I 

t 


z = X ( i » i ) 3 
else  <3 

if  X > y then  <3 

z = w ( i » i ) - X 3 
else  -3 

z = rt  ( i » i ) “ V 


3oth  OartfT'outh  ano  the  oronosed  A^JSI  Basic  include 
'T'andatory  state'T'ent  labeling  because  of  the  interactive 
editing  feature  of  Basic.  Extentieb  basic  does  not  use 
internal  interactive  editing  ana  subseouent  oroorarr'  execu- 
tion. Changes  are  Tiaoe  to  the  orogram  source  code/  using 
the  UMlf  text  editor  ana  subseouently  reco'rciling  the  crc- 
gram.  Thus  line  labels  are  only  necessary  for  use  in  con- 
trol structures.  Examoles  of  lir>ited  line  labeling  are 
found  in  the  exanole  croorams  at  the  end  of  this  section. 

The  tab  function  has  not  been  imol evented.  Tro  yse 
of  conmas  ang  semicolons  to  force  colunnation  is  not  effec- 
tive. Partial  consistancy  with  the  orobosed  stanaara  has 
been  maintained  Ov  nroviding  a continuation  flag  fcr  outnut. 
/vhen  a semicolon  aopears  at  the  end  of  a orint  statement/ 
newline  is  not  invoiced/  and  the  next  outout  from  a orir-t 
statement  will  immediately  follow  the  existing  outout. 
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3.  Control  Structures 


Extended  Basic  has  exoandeo  tne  control  structures 
included  in  standard  Basic.  These  structures  consist  ot  t^e 
FOR,  IF,  GOTO,  G0SU8,  ON,  STOP  and  RANDOMIZE  statenents. 
Extended  Basic  significantly  increases  the  oower  o^  the  IF 
statement  by  oroviding  an  ootional  ELSE  clause  ana  by  allow" 
inq  an  executable  statement  to  follow  the  ThFN  and  the  ELSE. 
An  executable  statement  is  further  aefined  in  Aooendix  I. 
Any  Such  executable  statement  may  be  useo  within  an  IF 
statement.  Aaditionally,  the  IF  statement,  which  is  classi- 
fied as  a simple  statement,  may  be  useo  in  the  same  manner 
as  an  executable  statement  in  the  ELSE  clause.  Thus  IF 
statements  may  be  nested  to  an  infinite  oeotn;  however,  only 
one  executable  statement  may  exist  at  the  deecest  level. 

y.  String  Processinq 

Extended  Basic  contains  features  wnich  crovioe  *or 
qeneral  string  man i ou 1 at i on . Strinqs  are  created  dynamical- 
ly, may  vary  in  length  to  a maximum  of  cS5  characters,  anq 
may  be  subscrioted  to  one  dimension  to  create  a vector  of 
strinqs.  The  oredefined  function  LE'J  returns  the  current 
length  of  a strinq.  Al)  string  variables  and  string  array 
elements  are  initialized  as  null  strings  with  a length  of 
zero.  Strings  may  be  created  and  associated  with  a variable 
using  the  reolacement  operator  (=),  an  INPUT  statement,  or  a 
HEAD  /statement.  A string  entered  from  the  console  or  read 
from  an  external  file  may  not  ne  enclosed  in  quotation 


1« 


markSf  but  stioulb  be  aeHmiteb  by  newlines 


A s t r i na  en- 


tered frow  t,he  console  or  redirected  ny  syste^'  editing 
through  an  external  file  may  be  terminated  by  a Quotation 
mark  or  the  newline  Symbol*  '\n',  whico  is  eouivalent  to  the 
ASCII  line  feed  control  character.  Strings  appearing  in  a 
data  statement  within  the  oroaram  must  be  enclosed  in  Quota- 
tion marks  since  they  form  an  inteoral  part  of  tne  orogram. 
An  additional  feature  of  extended  Basic  allows  comparison  of 
string  variables  and  extraction  of  substring  segments. 


Strings  are  compared  using  the  same  relational 


operators  used 

for  numeric 

data. 

Two 

strings 

are  equa 1 i f 

and  only  if  the 

s t r i nqs  nave 

the 

same 

length 

and  contain 

identical  characters. 


Substring  extraction  is  accomplished  using  substring 


notation*  i.e. 

A ? ( m 

In).  This 

expression  returns  tne  sub- 

string  of  String 

van 

able  beginning 

at  character  position 

m and  ext  end i nq 

for  a 

1 eng t n of 

n characters. 

Other  p r 

ede  f i 

nen  functions  are 

n ro V i ded 

to  f ac  i 1 1 - 

tate  processing 

s t r 

i ngs . The 

ChRS 

function 

conver t s a 

numeric  argument 

into 

a single 

ASCII 

character 

while  A SC 

converts  the  f 

1 r s t 

character 

of  a 

string  argument  into  a 

nume  r i c value. 

5 . Files 

Data  may 

be  t 

rans  ferred 

between  an  extended  Sasic 

program  and  ex 

t e rna 

1 s f 0 rage 

using 

the  file 

orocessi ng 

feature.  The  OPEN  state^tent  identifies  files  and  orecares 
them  for  access.  The  aenenel  form  o*  an  OPEN  statement  is: 

OPEN  (<external  file  number>,<access  moae>)  <H1e  name> 

where  the  <file  name>  is  a ctiaracter  strinq,  which  is  called 
a oathname  in  the  UNIX  heirarchical  file  system.  If  a ^ile 
exists  in  the  external  file  system  «ith  the  name  represented 
by  the  pathname*  then  that  file  is  opened.  Otherwise*  a 
file  is  created  with  that  name  provided  the  <access  mcqe> 
specifies  writinq.  Each  file  curremtlv  in  use  is  assigned  a 
unique  <externa1  file  number>  by  the  orodrammer.  This  file 
number  is  used  for  all  further  re'^erences  to  the  file  while 
it  remains  open  for  access.  Data  is  transmitted  between  tne 
external  file  and  the  extended  Basic  orogram  usinq  the  kE^D 
and  PRINT  statements  with  the  <file  ootion>: 

READ  <»  <file  OPtion>;  <read  list> 

PRINT  3 <fi1e  ODtion>;  <exDression  list> 

The  <file  ootion>  specifies  the  file  desired  by  referencing 
the  <external  file  numper>  defined  ov  a preceedino  OPEN 
statement.  Access  to  a file  may  be  terminated  by  the  CLOSE 
statement.  End“of”file  may  be  determined  with  an  IF  END 
statement  which  has  the  foMowinq  form: 

IF  END  3 <external  file  number>  ThEN  <valid  statement> 

The  <valid  statement>  may  be  any  statement  or  expression 
which  is  permissible  with  a standard  IF  statement. 
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b.  Stanrtard  Inout/Outout: 


Standard  inout  and  cutout  tiles  are  organized 
sequentially.  The  standaro  inout  file  is  a linear  seauence 
of  numeric  and  string  data  items  seoarate'^  by  commas  and 
newlines.  Eacb  reference  to  a sequential  file  retrieves  the 
next  data  item  with  , or  writes  another  data  item  witn 
PRINT  With  each  READ#  the  variaoles  in  the  read  list  are 
assigned  values  from  the  inout.  Line  terminators  are  treat- 
ed as  record  terminators.  Thepg  is  no  concect  of  a tradi- 
tional record  since  each  record  may  be  of  indefinite  lenqtn, 
limited  only  by  the  medium  through  which  the  record  is 
created. 


Likewise#  with  each  PRINT  command#  values  from  the 
excress  ion  list  are  written  to  the  file.  The  exoressions 
are  written  to  the  standard  cutout  as  ASCII  strings  seoara*"- 
ed  by  soaces  exceot  for  the  last  data  item  in  the  list  which 
is  followed  ov  a newline.  The  use  of  newlines  in  this 
manner  allows  files  to  be  disolayen  usino  system  utilities 
and  also  allows  files  created  witn  a text  editor  to  ce  read 
by  extended  Basic  orograms. 


Since  data  t yce-chec k i ng  is  not  accomc 1 i sheg#  the 
sequence  of  item  data  tyoes  in  the  exoression  list  should 
match  the  seauence  of  item  data  tyoes  in  the  external  file. 
'Mismatched  data  tyoes  will  return  undesirable  values. 
Numeric  data  tyoes  readinq  strina  values  will  return  a se- 
quence of  zeros.  String  data  tyoes  reading  numeric  values 
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will  return  a strina  of  nu"nbers. 

Data  may  oe  acoended  to  e**’ernal  files  by  specifying 
the  append  access  mode  when  an  OPEN  statement  is  used.  This 
allows  additional  data  items  to  be  written  at  the  end  of  the 
specified  file.  An  OPEN  specifying  write  access  will  create 
a new  file  if  one  does  not  already  exist»  or  will  reopen  an 
existing  file»  overwriting  and  destroying  any  pre-existing 
data. 

7.  External  Interface 

This  version  of  extended  Basic  was  designed  primari- 
ly to  enhance  user  acilitv  to  program  with  a simplistic 
language  which  could  int<*rface  with  other  subsystems  avail- 
able within  the  UNIX  environment.  This  was  accomplished  by 
creating  the  EXTERN  and  CALL  statements. 

The  Extern  statement  defines?  within  the  Basic  pro- 
gram? those  existing  external  subroutines  which  will  be  used 


for 

any  software 

1 mo 

1 emen  t a t ion. 

E X amp  1 es 

0 f 

subroutines  which 

may  ne 

used  are  PC.v 

and 

PRINTF  (P) 

• 

POd  returns  the 

value  of 

the  variable  x 

r a i 

sed  to  the  power 

of  y ? Pe  r f 0 r m i ng 

floating 

Point  exponen- 

tiation.  PRINTF  converts?  formats  and  prints  all  arguments 
after  the  first  argument?  and  under  the  control  of  the  first 
a r gumen  t . 
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These  subroutines  would  be  defined  in  a Basic  pro- 


qram  by : 

extern  cow (double, double) 

extern  orintf(*^Char,  double, integer) 

rthile  these  example  procedures  exist  in  the  UNIX 
system  library,  it  is  not  necessary  to  use  only  existing 
procedures.  The  user  may  create  procedures  for  specific 
neeas  by  writing  and  comoilino  unigue  croceoures  in  the  C 
language  (111,  and  including  the  loadable  version  o^  the 
procedure  as  a parameter  when  the  system  compile  command  for 
Basic,  L0AX,  is  issued. 

Once  a procedure  has  been  defined  as  external,  it 
may  be  used  in  the  Basic  program  by  using  tne  CALL  state- 
ment. It  would  appear  in  the  program  as: 

call  oow ( X , y ) 

call  orintf(a5,s urn, prod) 

Examples  of  programs  using  the  ExTEHN  ang  CALL 
statements  are  provided  in  the  next  section. 


c.  example  progpams 

1.  Quadratic  Factors 

This  example  program  comoutes  the  factors  of  a oua- 
drat i c eauat i on . 
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rem  quad  factors  of  6th  dearee  oo1vnomial»  Hairstow 
dim  a(9),b(9),c('^) 
data  0, 1 , -1 7 .3, 99 ,y 1 , -2o 1 ,?1 8 
data  552 . 6 I 1 , - 1 59  , 1 Oo 
data  0 » 0 , . 0 0 0 0 1 / 2 0 » 5 

print  "Demonstration  proaram  output" 
fori  =5to9 
read  a ( i ) 
next  i 

read  rl,  si,  test,  Hm,  n 
print  "The  original  oolynomial 
print  "Power  of  x Coefficient" 

j = 9 - n 
for  i = j t o 9 
m = 9 - i 

print  m,"  ",  a(i) 

next  i 

print  "The  quadratic  factors  are 
0(1)  = 0 
0(2)  = 0 
c ( 1 ) = 0 
c(2)  = 0 
r = r 1 
s = s 1 

5 knt  = 1 

6 forj=5to9 

0(j)  = a(j)  + r*b(j-“l)  + s*b(j”2) 
c(j)  = b(j)  + r*c(j-l)  ♦ s*c(j-2) 
next  j 

dnm  = c(7)f2  - c(3)*c(o) 
i f dnm  i = 0 qo  t o 1 
r 1 = r 1 + 1 

Sl  = Si  1 
goto  5 

1 delr  = (-o(8)*c(7)+c(6)*b(‘^))/dnm 
dels  = ( -c ( 7 ) +b ( 9 ) +b ( ^ ) *c ( 6 ) ) /dnm 

r = delr  r 
s = dels  + s 

if  (abs(delr)  + abs(dels)  - test)  <=  0 qo  to  3 
if  (knt  “ 1 i m ) < 0 qo  t o 2 

print  "Does  not  converge  after  ",lim,"  iterations 
stop 

2 knt  = knt  + 1 
go  t o 6 

3 orint  "xf2  + ",r,"  x + ",s 
n = n - 2 

t va 1 = n - 2 

if  tval  < 0 tnen 

print  b(6),"  x ",h(7) 
if  tval  = 0 then  a) 

orint  b(5),"  xt2  + ",b(6),"  x ^ ",b(7) 
if  tval  > 0 go  to  9 
stop 

for  k = 5 to  9 
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a(k)  = b(l<~2) 
next  k 
go  t o 5 
ena 


2.  Vagic  Figures 


This  Drogran  oraws  ranOo'r  syTimetric  tioures  on  t^e 


TEKTRONIX 

graphics  device. 

It  uses 

four  externally  aefineo 

graph i c s 

routines  which  are 

1 oc  a t ed 

in  the 

TEKTPONI X 1 1 - 

b r ary  . 

They  are  N E .'i  P * G , 

A'-l'-moE  , 

I N I T T , 

and  FINITT  ['^l  . 

^ErtPAG  erases  the  screen  and  returns  tie  aldanijr'eric  cursor 


to  the 

home 

nos i t ion. 

the 

uoper  1 

eft 

hand 

corner  of  the 

screen 

[101  . 

A^lMQDE  sets 

the 

C u r so  r 

t 0 

t ^ 9 

a 1 onanume  r i c 

mode.  IMTT  reouirps  one  argument  carampter  sceci^ving  the 
character  transmission  rate  between  the  comouter  ana  termi-  j 

nal  to  determine  the  celay  to  tip  screen  wnen  erasure  is  be-  I 

inqoerformpd.  FIN  ITT  clears  the  buTTers  ana  moves  tie 
oointer  to  the  oosition  indicated  ov  the  two  oarampters. 

The  externally  aefineo  orocedure  PLOT  moves  the  oointer  to  | 

the  x»y  coordinates  indicated  by  the  arguments  ana  plots  a i| 

. i 

point  at  that  location.  The  sixth  externally  defined  i 

routine  is  ^fOVE.  These  procedures  are  user  definea#  ang  are 

located  in  the  user's  external  file  area.  ‘■fOvE  causes  t^e  1 

Pointer  to  be  moved  across  the  screen  without  nrawino  on  tip 

surface. 


extern  newbanl) 
extern  anmode ( ) 
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extern  i n i 1 1 ( i n t ege r ) 
extern  f i n i 1 1 ( i n t e<^e  r / i n t eqe  r } 
extern  o 1 o t ( i n t eqe r , i n t eae r ) 
extern  mo  ve  ( i n t ene  r , i n t <?qe  r ) 

print  "welcome  to  *^aqic  enter  your  two  numoers 

100  input  "numper  one  ";fm 
input  "number  two  ";fm2 
call  inittC'^bO) 
call  newoaq ( ) 
d=l  0 

c = f m 
2 = 0 
i =0 

3 h=rad(z“'^0) 

x=cos(b)*d+’512 
y=sin(b)*d+580 
if  i <>0  qo  to  y 
call  mo  V e ( * X * ^ * y ) 
go  t o 5 

call  p1ot(y*x,a»y) 

5 z=z+c 

C=(-l)*C*fm2 

fm2=l/fm2 

i = 1 

q=d+  f m/90 
a = a + f m 

if  a <27500  qo  to  3 
call  mo  V e ( 0 f ly  ♦ 78  0 ) 
call  anmode ( ) 
go  to  100 
ena 
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IMPLEMEfUATION 


A.  SYSTE'^  DESIGN 


The  extended  Basic  con'piler  was  designed  around  a 
table-driven  oarser  «hich  checks  statetrents  tor  correct  syn- 
tax ana  generates  assembly  code  written  into  a UNIX  tile. 
This  code  is  assembled  and  loaded  together  with  reauesteo 
and  reguired  libraries^  and  other  user  defined  croqram  seg- 
mentSf  Dy  the  assembler  and  loader  when  cal  lea  oy  the  execu- 
tive program»  LBAx,  located  in  the  system  library. 


The  decision  to  compile  the  source  program  and  then  as- 
semple  the  intermediate  lanouage  was  based  on  the  followi^'q 
consideration:  formal  parsing  techniaues  could  be  used  to 
analyze  the  syntax  of  the  source  program  maxing  extensions 


to  the  1 anguaqe 

relative 

1 y 

easy  . 

I n 

t h i 

s case*  an  LAL 

parser-generator 

YACC 

tol 

t w 3 S 

used 

t 0 

automatically  cen 

erate  the  parse  tables  for  the  languaoe. 


Tne  following  sections  discuss  the  design  of  the  extend- 
ed Basic  compiler  anc  the  implementation  of  the  system  exe- 
cutive proaram.  Source  listinas  of  the  orocrams  are  con- 
tained in  the  Program  Listina  section  of  this  thesis. 


B.  CO'^'PILEH  STPUCTURE 


1.  Cowoiler  Organization 

The  comoiler  structure  reauires  one  cass  througn  tre 
source  orogram  to  oroduce  an  intermediate  assemhlv  1 anquaoe 
file.  This  oass  writes  all  numeric  constants  to  the  numeric 
constant  list»  determines  the  size  of  the  symbol  table  and 
inserts  symbols  with  associated  attributes*  outcuts  inter- 
mediate level  code  to  a file  based  upon  oarse  actions  and 
semantics*  resolves  external  calls  and  produces  the  cooe  for 
access  to  external  files. 

The  intermediate  level  code  is  the  UNIX  assembly 
language.  The  formated  output  program*  to  be  loaded  ana  ex- 
ecuted* is  in  the  proper  format  for  an  assembly  progra-. 


The 

f 0 r ma  t 

consists  of  text*  data* 

and 

css 

segment  s I 7 ] . 

The 

text 

segment  contains 

al  1 

t n e 

executable  in- 

S  t rue  t i ons 

and 

unmodified  data. 

The 

data 

segment  may  con- 

fain 

text* 

but  a ! 

Iways  contains  ini 

t i a 1 i 

i z eg 

data  which  "nav  re 

modified  during  execution.  The  bss  segment  contains  unini- 
tialized data  areas  and  is  an  extension  of  the  data  segment. 

The  data  segment  contains  the  buffers  for  externa) 
file  manipulation  as  illustrated  in  Figure  1.  The  number  o* 
buffers  may  not  exceed  fifteen  ana  is  determined  by  the  OPE* 
actions  in  the  parser.  The  lenath  of  each  buffer  is 
bytes*  six  of  which  are  utilized  bv  the  system  Inpuf/Outnut 
commands  and  512  of  which  contain  the  string  of  data. 


The  Basic  run-i  i (’■e 


stack"  is  established  in  the 


bss 


seaitent  by  the  ccnoi'i<»p  and  is  tifty  bytes  in  lenatn.  It 
uses  the  "last  »n/  first  out"  concept  and  qrows  downward  to- 
ward the  data  sed^tent. 

1 . Sc  anne  r 

The  scanner  analyzes  the  sounce  oroqram,  returning  a 
seauence  of  tonens  to  the  oarser.  In  addition,  the  scanner 
crocesses  data  statements  and  recodnizes  continuation  char- 
acters. Analysis  of  the  first  non-nlank  character  in  the 
input  stream  determines  the  general  class  of  the  next  token. 
The  remainder  of  the  token  is  then  scanned,  clacino  each 
successive  character  into  one  of  the  accumulator  vectors,  ID 
or  iNUMST*^,  used  for  ioentifier  and  numeric  items  respective- 
ly. 

If  the  scanner  recognizes  an  identifier,  it  searches 
the  reserved  word  list  to  determine  if  tho  identifier  is  a 
reserved  word.  If  founo,  the  toxen  associated  with  that 
reserved  word  is  returned  to  the  parser. 


I n 

the 

event 

the  token 

IS  not  a resenved 

word.  It 

i 3 

va  1 

i d a t e d 

f ’■on 

the 

S y moo  1 

t ao  1 

e returninq  an  error  code. 

1 f 

not 

d e f i n e d 

t or 

the 

s y mho  1 

t ab  1 

e location  index 

numce  r , 

1 f 

defined.  In  order  to  be  a valid  membeh  of  the  sympol  taiile, 
an  Identifier  must  be  a numeric-identifier,  strina- 
identifter,  function-identifier,  array  identifier,  or 
built-in  function.  .'/honever  a svmbo'  not  defined  in  the 
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symDol  taote  is  encountered,  it  is  verified  to  be  a crorer 


identifier,  occurring  in  a valid  Dosition  in  th»>  inrut 
string,  and  is  t*ien  inserted  into  the  syrrbol  tatile. 

If  the  scanner  recognizes  a to>cen  as  a numeric  con- 
stant, the  number  list  is  searched  to  determine  if  tr.e 
number  is  already  stored.  If  the  number  is  not  an  element 
of  the  list,  it  is  inserted  into  the  literal  numbers  taole 
with  its  adoroDriate  identifyina  attributes. 

^ . Symbol  Taole 

The  Symbol  taole  contains  attributes  of  crogram  ang 
comgiler  generated  entities  such  as  identifiers  and  function 
names.  The  information  stored  in  the  symbol  table  is  creat- 
ed ana  referenced  by  the  comoiler  to  verify  t^at  toe  oroaram 
is  semantically  correct  and  to  assist  in  code  Generation. 
Access  to  the  symbol  table  is  orovideo  through  a number  of 
orocedures  ooeratina  on  the  Globally  defined  svmnol  table 
V a r i ao 1 e s . 

The  symbol  table  is  a C language  structure  as  illus- 
trated in  Figure  2.  It  may  contair  uo  to  200  individual  ele- 
ments which  are  accessed  as  members  of  an  array,  or  may  be 
identified  by  the  attributes  stored  in  each  structure  ele- 
ment vector. 

The  final  elements  of  the  symbol  taole  contain  the 
names  of  the  built-in  (or  oreoefined)  functions.  The  svmpol 
table  grows  downward  with  subseouent  symbols  oreceedimg 
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the  built”in  function  syrrbol  names.  Indiviauat  elements  of 
the  symbol  table  are  located  by  any  of  a number  of  attri- 
butes as  illustrated  in  Fiqure  Each  entry  in  the  symbol 

array  refers  to  a structure  consisting  of  six  elements. 
Symbols  may  be  selected  based  upon  the  entries  in  any  one  of 
the  elements  or  any  combination  of  elements. 

The  attributes  of  a symbol  are; 

Symool.  The  null  terminated  string  of  charac- 
ters representing  the  symbol. 

Type.  A numeric  value  which  characterizes  a 
symbol  ("1  through  10) 

- the  null  parameters  of  external  variaoles 

- a numeric  identifier 

- a nume r i c array 

- a string  identifier 

- a string  array 

- a programmer  defined  function 

- a numeric  built-in  function 

- a string  nui1t-in  function 

- a s i mo  1 e format 

- a numeric  format 

- a numeric  string  puilt-in  fumction 

- an  external  variable 

Dimension.  Thg  dimension  of  an  array»  the 

numper  of  parameters  for  a function. 

/ 
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n functions,  this 
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function  is  being 
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a p p a y s , 

this 

contains  the 

numbe  p 

of  el emen  t s in  a 

nuTieric  appay>  op  the  PiumbeP  of  bytes  in  a stpinq  arrav. 

The  symbol  table  is  ooepated  on  using  scecializeo  pro- 
cedupes.  LOOKUP  is  called  with  a oointep  which  identifies  a 
Symbol  stPinq.  It  invokes  COVPAR  peceatedly»  wOPking  ucwaPd 
fpom  the  fipst  symbol  thpough  the  built"in  function  list. 
COMPAR  comoapes  two  stPinq  apguments.  If  the  stping  is 
found,  LOOKUP  petupns  the  element  numtep  of  the  svmbol. 
Othepwise  "1  is  petupned.  I M SEPT  is  called  with  a oointep 
apgument  to  a symbol  stPing.  The  stPing  is  copied  into  the 
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a va  i 

1 ab  1 

e table 

el ement 

and  a 1 1 

1 the  a t t p i 

bu  t e 

e I 

e^en  t s 

are 

set 

t 0 

zero . 

.'i hen  the  scannen  detenmi 

ne  s 

the 

symbol 

type. 

the 

a 1 1 

p i but  es 

are  set 

to  the 

aop  POP  r 1 at 

e V a 

lues 

3a 
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Constant  List 


’I 


The  constant  list  stores  literal  nunnhers  in  a C 
language  structure  as  illustratecj  in  Figure  i.  It  riay  con- 
tain uD  to  200  different  literal  numbers  which  mav  be  ac- 
cessed as  members  of  an  array*  or  by  determining  the  charac- 
teristics of  each  element's  unigue  attributes.  Each  entry 
in  the  constant  list  refers  to  a structure  of  five  elements* 
which  contain  the  various  attrioutes. 

The  attributes  of  a constant  are: 

Value.  The  actual  value  of  the  constant*  stored 
in  Doth  double  orecision  floating  ooint  and  integer  form. 

Declaration.  This  identifies  the  context  in 
which  a number  was  first  encountered  which  may  oe  of  tyce 
floating  ooint  or  integer,  Determined  Dy  the  presence  of  a 
decimal  ooint  in  the  inout  string.  For  code  generation  only 
the  floating  ooint  form  is  used. 


i 

n 


Use.  This  aetermines  whether  the  value  has  been 
used  as  a numoer*  a statement  label*  which  may  oreceae  any 
statement*  or  a label*  which  is  the  statement  label  to  whicr 
a branch  statement  or  control  structure  refers. 


In  the  C environment*  a real  numoer  which  is  read  as 


dat  a 

for 

an  i n t ege  r 

va  r i ab 1 e is 

truncated  to  i 

integer 

for"'. 

S i m i I 

I ar 1 y , 

an  i n t eoe  r 

numoe  r read 

as  data  for  a 

real 

V a r 1 - 

aole  is  transformed  to  real  notation.  fthgn  a value  's 


stored  in  the  Sasic  constant  tistf  it  is  stored  in  born 
forms»  thus  requiring  a t 1 aq  inoicatinq  the  proper  tor"  to 
be  accessed  v»hen  the  number  is  used  during  execution  ot  the 
program,  rthile  the  compiler  produces  output  which  performs 
arithmetic  operations  with  nouble  precision  floatinq  point 
numbers  only,  label and  statement  labels  should  be  of  in- 
teger form. 

1.  External  Files 

External  file  management  is  implemented  usincj  the 
UNIX  system  calls  OPEN  and  CLOSE,  and  system  routines  GETC 
and  PUTC  [9] . 

Each  time  the  parser  encounters  an  OPEN  statement,  a 
flag  is  set  in  an  element  of  the  compiler  array  FDS,  whicn 
contains  a file  descriptor  status  for  each  external  file. 
The  element  number  corresponds  directly  to  the  referenc«a 
external  file.  In  the  event  a commana  to  CLOSE  a previously 
unopened  file  occurs,  an  error  f 1 aa  is  set  ^or  the 
corresponging  file.  Similarly,  efforts  to  PEAO  from  or 
PRINT  to  an  unopened  fil<»  will  cause  an  error  flag  to  be  set 
in  the  EDS  array.  These  errors  are  reported  after  tne 
scanner  completes  its  function,  durino  tne  acceptance  ac- 
tions of  the  compiler. 

While  the  parser  is  oenerating  assembly  cone,  tne 
string  name  of  each  referenced  file  is  inserteo  as  a con- 
stant in  the  assemblv  source  program.  This  provides  the 
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strinq  argument  which  is  reauirerJ  as  one  of  the  parameters 


for  the  UNIX  system  routine  OPEN. 

2 . Parser 

Tne  oarser  is  a t ab 1 e-dr i ven  pushdown  automaton.  It 
receives  a stream  of  tokens  from  tne  scanner  and  analyzes 
them  to  determine  if  they  form  a sentence  in  the  extended 
Basic  Grammar.  As  the  parser  accepts  tokens/  ore  of  three 
actions  jw  i 1 I be  Performed.  It  may  stac<  the  toxen  ano  con- 
tinue to  analyze  the  source  program  by  fetchinq  another  to- 
ken, or  the  Parser  may  determine  that  it  has  recognized  tne 
right  part  of  one  of  the  productions  of  the  1 anquaqe  ang 
cause  a reduction  to  take  place.  Finally,  the  parser  -av 
determine  that  the  current  strinn  of  tokens  noes  not  produce 
a valid  riqht  part  for  a production  and  thus  produces  a syn- 
tax error  message. 

3.  Code  Generation 

In  addition  rq  verifying  tne  syntax  of  source  state- 
ments, the  oarser  also  acts  as  a transducer  by  associating 
semantic  actions  witn  reductions.  Eacn  time  the  parser 
determines  that  a reduction  should  take  place,  the  procedure 
SE'^ANT  is  called  with  the  number  of  the  production  passed  as 
a parameter.  The  constant  list  contains  tne  information  re- 
quired to  Perform  the  semantic  action  associated  with  tne 


selected 

product i on  . 

Tne  action  may  inc’ 

1 u de 

gene  r a t 

1 0 n 

0 ^ 

assemp 1 y 

1 anauaoe  c ode 

and  operations  such 

a s 

symno 1 

r at: 

1 e 

man  i DU  1 at  i ons  and  uodatina  of  th*?  oarse  arrays 


Sonr.  e pro- 


ductions have  no  se'rantic  actions  associated  with  t*^em. 

In  the  followinq  section?  the  syntax  of  the  lanquaqe 
is  listed  in  BNF  notation  18).  ^ listing  of  tne  qranmar 

with  appropriate  se'^'antic  actions  is  provided  in  the  prograri 
listing  following  the  appendices  of  this  thesis.  The  toxen 
'cr'  means  carriage  return. 

a.  Extended  Basic  Language  Structure 

The  overall  structure  of  the  extended  Basic 
language  is  defined  by  the  following  syntax  equations: 


(1)  <proqram>  ::=  <statemenr  ]ist>  <eng  statement> 

(c)  <statement  list>  :;=  <simDle  statement> 

(3)  !<statement  list><simplestate-’ent> 

(4)  <end  statement>  <statement  laoel>  Et\0  cr 

(5)  ;EM0  cr 


(b)  <simple  state'Tient> 
(7) 

(0) 

(10) 

(11) 

(12) 

(13) 

( 1 a ) 

(IB) 

(lb) 

(17) 

(18) 

( 1«) 

(20) 

(21  ) 


<statement  laoel>  <exec  state>  cr 
l<statement  label> 

<if  statemenf>  cr 
1 < s t a t eren  t 1 abe 1 > 

<data  state'nent>  cr 
1 < s t a t emen  t 1 aoe 1 > 

<def  stater'ent>  cr 
I<statement  label> 

<rem  sfatement>  cr 
!<statement  label> 

<extern  statement>  cr 
!<for  statenent> 

I<dim  statenent> 

I<exec  state>  cr 
I<if  statenent>  cr 
!<data  statement>  cr 
!<def  5tatement>  cr 
!<rem  stateTent>  cr 
!<extern  statement>  cr 
l<error>  cr 
1 C r 


3« 


(22) 

<e  X ec 

state>  <read  statement> 

(23) 

!<restore  statement> 

(2a) 

I <ooen  statement> 

(25) 

1 <c 1 ose  St  at  ement  > 

(26) 

!<input  statement> 

(27) 

!<readf  statement^ 

(29) 

!<orint  statement> 

(30) 

!<write  statement> 

(31  ) 

I<stoo  state rrent> 

( 52) 

!<on  statement> 

(35) 

|<branch  statement> 

(3a) 

!<let  statement> 

(35) 

!<ca11  statement> 

b . 

Assignment  Statements  and  Expressions 

The  following  Syntax  equations 

are 

for 

proper! v 

formed 

assignment 

s t a t ement  s 

and  expressions. 

The 

types  of 

operands 

w h i c n are 

accept abl e 

with  each  of 

the 

binary  ocer  a- 

tors  is  stiown  in  Table  1.  The  ooerana  for  the  unary  ooera- 
tors  and  - must  be  numeric  quantities.  The  oceranq  tor 
the  unary  operator  fTOT  must  be  a logical  nuantity.  Tne 
grammar  rules  cause  a checi<  to  be  maae»  insuring  that  the 
above  semantic  rules  are  followed. 


Checics  are  also  maae  to  insure  tr. at  suDSCrioted 
variables  are  a i mens i oned  before  ceinq  useo»  that  t^“ 

correct  number  of  subs c' riots  is  provi:leq»  trat  eaco  sub- 


script 

i s 

of  type 

nufl^e  r i c 

* anq  tnat  a subscripted  vari 

ab 

1 e 

is  not 

used 

as  a FOR 

loop  index.  Likewise* 

checks  are 

ma 

< e 

on  tne 

number  and 

type  of 

Parameters  in  a 

function  cal 

1 

t 0 

i n su  r e 

they 

match  the  funct 

ion  definition. 

In  rule  (an) 

t 

^ e 

'!'  appears  literally  in  the  equation. 


(30)  <let  statement>  :;=  <strina  let> 
(57)  !<numericlet> 


aO 


• ^ > 


I « 


(38)  <string  let> 
(S'?) 


i 

1 

i 


f 

i 

i 

I 

i 


L 


(ao ) 
(y  1 ) 
(a2) 

(43) 

(44) 

(45) 

(46) 

(47) 

(48) 
(4<?) 

(50) 
(51  ) 

(52) 

(53) 

(54) 

(55) 

(56) 

(57) 

(58) 

(59) 

(60) 

(t.1  ) 

(e>2) 

(63) 

(64) 

(65  ) 
(66) 

(67) 

(68) 

(69) 

(70) 
(71  ) 

(72) 

(73) 

(74) 

(75) 
(7o) 


LET  <string  ref>  = <stPing  exo> 
I<Strinq  ref>  = <string  exp> 

<strinq  ref>  ;:=  <strinq  id> 

!<sub string  ref> 

!<strinq  array  rpf> 

!<sarray  suhst  ref> 

<substring  ref>  <strinq  ref  )o>  <substring  soec> 

<strinq  ref  lo>  !:=  <strinq  id>  ( 

<substrinq  soec>  <numeric  exo>  ! <numeric  e*D>  ) 

<nuneric  exp>  <tern> 

|<nuneric  exo>  + <ter'n> 

{<numeric  exD>  - <terr"> 

I + <t  e r'T> 

1 ~ < t e r'n> 

<term>  <pri'nary> 

!<term>  * cprimary> 

I<term>  / <orimary> 

<crimarv>  <primarv  e1ement> 

!<Drirr'ary>  T <pri'nary  ele'T'ent> 

<prifrary  elerrent>  <nur’eric  ref> 

{ <nurrbe  r > 

! <b i f > 

I(  <nurT<eric  exp>  ) 

!<func  ref> 

<nuneric  ref>  J;=  <nuneric  id> 

l<array  ref> 

<array  ref>  <array  ref  head>  <numeric  exp>  ) 

(array  ref  head>  <array  id>  ( 

l<array  ref  neaa>  <nuneric  exc>  > 

<pif>  <strinq  bif  ref>  <strinq  exp>  ) 

,'<nur'ertc  bif  ref>  <numeric  exc>  ) 

!<nurreric  bif  nparr'> 

<strinq  bif  re?>  <strinq  oif>  ( 

|<nui7'eric  bif  ref>  <nu't'eric  exp>  , 

<numeric  bif  ref>  ::=  <nuTieric  bif>  ( 

!<nur'eric  bif  ret>  <nur'eric  exr> 

<strinq  exp>  ;;=  <strina  ref> 

! < S t r i nq> 

!<Str  nun  Pif>  ( <nuneric  exp>  ) 


4 1 
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(77)  <nun'epic  b i f noarm>  ;;=  <nu'"epic  hif> 

(78)  <func  pef>  :;=  <func  p?f  heab>  <numepic  exc>  ) 

(7*5)  <fupc  pef  head>  <^unctioo  id>  ( 

(80)  !<func  ref  nead>  <nup'epic  exD>  , 


(81  ) 

< s t P i nq 

array 

ref>  : : = <st  p i nq 

ref  1d>  <numepic 

exp>  ) 

(82) 

< sa  p P a y 

subs  t 

pef>  < sa  r ray 

subs  t 1 c> 

<subst  pi  no 

spec 

> 

(85) 

<sappay 

subs  t 

1 D>  <stPinq  appay  ref>  ( 

(8U) 

<nume  p i c 

1 e t > 

LET  <numepic 

r ef  > - <numePiC 

e X D > 

(85) 

!<numioric  r e f > 

- <nyme  P i C 

e X o > 

(8b)  <pel  exo> 
(87) 

(08) 


1 < pe  1 
1 < pe  1 


exo>  X 0^?  < re) 
exo>  OW  < re  1 

t e PTi> 


t e Pr!> 
t e pn  > 


(89)  <rel  ferT>  <re1  ter'»’>  A*JD  <pel  opi^napv^ 

(90)  !<pelDPimapy> 


(91)  <rel  opinapy> 

(92) 

(95) 

(9«) 


<nup'eric  eto>  <rat>  <nu'T'epic  exp> 
I<sfPing  e<D>  <pel>  <stping  exo> 

! ( <pe  t e»D>  ) 

!N0r  ( <pe1  exD>  ) 


(95)  <re)> 

(96) 

(97) 

(98) 

(99) 

(100) 

( lOl  ) 

(102) 

(103) 


I — 

> 

< 

< = 

> = 

<> 

< pe 1 scec  > 


c.  ContPol  Statements 


The  contPol  statements  in  extenaeb  Basic  are  ae 
fined  by  the  followiPiQ  syntax  eauations: 


(10a)  <fop  statement>  <statement  label>  <for  c)ause> 

<statement  list>  <ne*t  c1ause> 
I<top  c'ause>  <statement  Hst> 
<nex  t cl ause> 


(105)  <statement  laoe1> 


<numbeP> 


(106) 

< f 0 r 

c 1 auS9> 

: ; = < f 0 r 

head>  c p 

(107) 

! < f 0 p 

Pead>  STEP 

<nyp'e  r i c 

e X p > CP 

(10ft) 

< f o r 

head>  : : 

= FOR  < f or  init>  TO 

<nuP'e  r 1 c 

e X D > 

(109)  <next  clause>  <stat:e'"enr  IaoeI>  NEXT 

<nuff>e'‘ic  ia>  cr 

(110)  !NEAT<numericirt>CP 

(111)  : NEXT  c r 

(112)  ! Otate'flenf  taDel>  NE  x T cr 


(113) 

< f o r 

i n i t > : : = 

< n u ■T'  e P i c 

i d>  = 

<nu'reric  exo> 

( 1 la) 

<i  f 

statement> 

: ; = < i T 

c 1 ause> 

< e X ec 

s t a t e > 

(115) 

! <1  T 

c 1 ause> 

<e  1 se 

c I ause> 

<exec 

s t a t e > 

(11b) 

! <1  T 

c 1 ause> 

<»»  1 s» 

c 1 ause> 

< i f St 

a t ?Ten 

t > 

(117) 

! <i  T 

head>  <aoto> 

<numhi?r> 

(lift) 

:<i  f 

c 1 aus®> 

<numpor> 

(IIP) 

!<i  f 

c 1 ausp> 

<e ) se 

c 1 ause> 

(120) 

<e)se  clause> 

: : = <exec 

s t a t e> 

ELSE 

(121)  i<number>  fL5F 


(122) 

< i f 

c 1 3use>  : : = < 

if  Head>  ThE N 

(123) 

(124) 

<i  f 

6eaa>  J : = IF 
: IF 

< re  1 e X p > 

END  a <nu'^D9P> 

(125) 

<stOD  stat9fi'ent> 

::=  STOP 

(126) 

< P PT, 

5tate"’ent>  : 

;=  RE*^ 

(127) 

<on 

s t a t e»ren  t > : : 

= <on  "ead>  <laDel> 

(12ft) 

(129) 

-<OP 

pead>  : : = <on 
1 <on 

bed i n> 

pead>  <labe1> 

(130) 

(131) 

<OP. 

bed i n>  : ; = CN 
ICO 

<nup'ep'c  exc> 
<nu»P9Pic  exp> 

<OP  case  se1> 

<on  se1ector> 

( 1 32) 
(133) 

<on 

case  se1 > : : = 

GOSUB 
! GO  SUB 

(134) 

< 0 n 

selectop>  ::= 

Then 

(135)  ! GOTO 

(13o)  : GO  TC 

(137)  <label>  ;:=  <nurpber> 


(lift)  < branch  state'rent> 
(139) 

( luO) 


<TOSub>  <Iaoel> 
!<aoTol>  <label> 
: RE  TURN 


( 1 U I ) <gosub>  ::=  GOSUH 
(la^)  'GO  SUB 

(143)  <gotol>  ;:=  goto 

(144)  <Qor o>  ; : = GOTO 

(14b)  !GO  TO 

d.  Declaration  Statefrents 


All  subscrioted  quantities  in  Basic  shoulo  be 
aec  I ared  orior  to  use  in  tne  oroarar".  The  a<»claraticn 
statements  in  extenaea  Basic  are  given  cv  the  tollowina  syn- 
t a x equa  t ions; 


(14(5)  <aim  statement>  <sdiTi  heao>  cr 

(147)  !<qimhead>cr 

(148)  <qim  head>  <aim  sarray  head>  <nvjrr,cer>  ) 

(149)  l<di'Ti  head  alo>  numoer>  ) 

(150)  <sdim  heao>  <aim  head  slo>  <number>  ) 

(151)  <aim  sarrav  hean>  <sdim  heaa>  ( 

(152)  <dim  head  lo>  ::=  <statement  laoeI>  CI'^' 

(15  3)  ! 0 r>' 

(154)  l<sdirT'  heaa>  » 

(155)  I<oimhead>» 

(15b)  <dim  head  sId>  <di-n  head  lr>  <string  i a>  ( 

(157)  <qim  head  alo>  ::=  <dim  Heaa  1d>  <nu meric  ia>  ( 

(158)  |<difnheadalD><number>, 

(159)  <oata  statement>  <data  head>  <numoer> 

(IbO)  I<data  tr'inus>  <number> 

(Ibl)  !<data  head>  <strinq> 

(162)  <aata  heaa>  DATA 

(163)  l<data  head>  <number>  , 

(164)  !<data  'rinus>  <number>  , 

(165)  !<data  head>  <strinq>  , 

(166)  <aata  ninus>  <aata  head>  “ 

(167)  <aef  state'T'ent>  <aef  left  oart>  = <numeric  e*p> 

(168)  <def  left  oart>  DE^  <aef  head>  <numeric  id>  ) 


L 


A 


(169)  <aef  head>  :i=  <function  i d>  ( 

(170)  !<cJe^  heaa>  <numpric  i 6>  » 

e.  Input/Outcut  S*’ate'«ents 

The  ioDut/outcut  state'T'ents  in  extendea  Basic 
are  consistant  ^ i t h the  A'JSI  oroDOsed  standards.  Care 
should  be  exercised  in  the  use  o(  punctuation  in 

inout/output  statements  as  defined  Cv  the  foMowinq  syntax 
equat ions; 


(171)  <ooen  statement>  ::=  <ooen  heaa>  <numper>  ) <strirq> 

(17^)  <open  heaa>  i i - OPEN  ( <numper>  > 

(173)  <read  statement>  ::=  <read  head>  <numeric  ret> 

(17a)  !<read  head>  <strinq  ret> 

(175)  <read  head>  READ 

(17b)  l<read  heaq>  <numeric  ref>  » 

(177)  !<read  head>  <strinq  re^>  > 

(178)  <input  statement>  <input  head>  <numeric  ret> 

(179)  l<inout  heaa>  <strinq  ref> 

(130)  <input  head>  ::=  I'iPuT 

(181)  ;<input  head>  <strinqexp>  ; 

(18i?)  !<inout  head>  <nu~^e  r i c ref>  » 

(183)  !<inout  heari>  <strinq  ref>  » 

(18a)  <readf  statement>  ;;=  <readf  heaa>  <numeric  r»t> 

(105)  !<readf  read>  <strinq  ref> 

(106)  <readf  head>  ::=  <read  file> 

(187)  !<reaqf  head>  <numeric  ref>  » 

(188)  !<readf  head>  <strina  ref>  » 


(189) 

(190) 


<read  file> 


“^EAQ  c <number>  » <numeric  exo>  ! 
[READ  3 <nunnher>  ; 


(191)  <orint  statement>  PRIM 

(19<^)  |<Dr»nthead><n'jrT'epicexp> 

(193)  !<orint  head>  <strinq  exp> 

(19a)  !<print  head>  <fcrmat  elemen t> 

(195)  !<orint  head><numericexp>  ; 

(19b)  !<print  head>  <strinq  exo>  ; 

(197)  l<print  head>  <tormat  element>  ; 


(148) 

<D  r i n t 

head>  : : = PP I MT 

(144) 

I <D  r i n t 

head> 

<nurreric  exp>  > 

(200  ) 

I <D  r i n t 

head> 

<Sfrina  pxp>  , 

(201  ) 

1 <D  r i n r 

heao> 

<format  e)ement>  > 

(202  ) 

! <D  r i n t 

heart> 

<numeric  exp>  ) 

(205) 

1 <or 1 nt 

head> 

<Strinq  exp>  ; 

(204  ) 

I < p r i n t 

head> 

<forT<at  exp>  ; 

(205) 

< w r i t e 

Statement-'  ::=  < 

-rite 

head>  snymeric  exp> 

(206) 

1 < w r i t e 

head>  <strir.q  exp> 

(20/) 

< w r i t e 

head>  : : = <w  r i t e 

f i 1 e > 

(208) 

! < w r i t e 

heaa> 

<numeric  exD>  / 

(204) 

! < w r 1 t e 

head> 

<Strino  exc>  , 

(210) 

(211) 

(212  ) 
(215) 


<wpite  fi1e>  ::=  “ <nup'r)er>  , <nu'^eric  exo>  ; 

jPRIM  a <nufpr)er>  i 

<forp‘at  ele'T'ent>  <si'T'Dle  forp'at> 

!<forp'3f  le^t  oaPt>  <nu'T'ep)c  exo>) 


(214)  <forp'3t  left  oart>  <nuTiePic  foppat>  ( 

(215)  <restore  statep'pnt>  !:=  ®EST0K’E 

(216)  iPANDOMIZE 

(217)  !PAMDOVIZE(<nup'ericexc>) 
(216)  <cIose  statep'ept>  ::=  CLOSE  ( <nuP'oer>  ) 

f.  Externa)  Statements 

The  external  an3  call  statements  in  exteraeo 
Basic  are  tre  basis  of  the  uniaueness  of  tnis  imolemenra- 
tion.  These  statements  oroviae  interface  caoacilitv  witn 
other  system  oroarans  anr!  oroceuures.  They  are  oefinea  oy 
the  following  syntax  equations; 

(214)  <o*tern  stateTient>  <extern  hean> 

(220)  <extern  heao>  ::=  EXTEPN  TYPE  <numeric  i 0>  <carm  ae^> 

(221)  [EXTEPl'J  <nuneric  ig>  <carm  def> 

(222)  lEXTEPM  i TYPE  <numenc  iO> 

<oarm  oef> 

(225)  !<extern  head>  » <nu meric  io> 

<narm  gef> 

(224)  <carm  def>  !t= 


a » 


(227) 


( ) 


(22b) 

i <oa rm  he aO> 

TYPE  ) 

(227) 

l<paPm  dead> 

^ TYPE  ) 

(22«) 

<oa  r m 

nead>  : : = ( 

(229) 

! <carm  head> 

type  , 

(230  ) 

! <oa r"  ►>ead> 

S.  TYPE  , 

(231  ) 

<c  a 1 1 

statemant>  ;:=  <call 

bead>  ) 

(231  ) 

! <ca11 

nhead> 

(232) 

I <c  a 1 1 

bead>  <nijrT'eric  e*c>  ) 

(233) 

! <cal) 

head>  <array  ia>  ) 

(239) 

! <c  a 1 1 

head>  <string  exp>  ) 

(235) 

! <call 

head>  i <nutreric  id>  ) 

(23b)  <cal1  ^eaa>  ::=  <ca11  nbi?ad>  ( 

(237  ) l<call  nhead>  = <nu"’eric  i a>  ( 

(23d)  I<ca1)  shead>  = <nu'T'eric  id>  ( 

(23^)  !<caH  head>  <nu'"epic  e«c>  , 

(2^0)  !<ca11  head><appay  ic>  > 

(2^1)  !<call  head>  <strino  ia>  t 

(2U2)  I<call  '^ead>  ^ <nup'epic  i t>  e 

(2«3)  <call  nhead>  C*LL  <numeric  id> 


(24U)  <call  shead>  ::=  CALL  <strinq  re^> 


Table  1 


Perrrissable  Variable  Tyoes  .‘nth  Binary  Ocerators 


string 

nume  r i c 

String 

t yoe  1 

error 

nu^e  r i c 

error 

tyoe  1/  tyoe  2 

r yoe  1 oce r anas 

< > = 

<=  <> 

> = 

= (assignment) 


t ycp  2 operands 

+ T 

- ana 

* or 

/ X c r 


J 


I.  RECQf^MENDA  T IGNiS  F0«  FUTURE  OE  VELOP"'^ENTS 

A number  of  aoGitional  extensions  to  this  Basic 
1 anquaae  could  be  made.  These  include  formatted 
i ncut /outDUt » a TRACE  statement  for  debuoqing»  additional 
string  orocessing  features/  scientific  notation/  and  rando-" 
access  for  external  files. 

Basic  orocessors  have  t radi  t i ona  1 1 y imolementeo  forma’’- 
ted  incut/outout  by  modifying  the  orint  statement  as  shown 
oe  1 ow : 

PRLNT  USl^lG  <format  strinq>  ; <exoression> 

The  format  string  contains  a description  of  the  format  i '' t o 
which  the  values  in  the  expression  list  are  to  be  placed. 
This  might  be  implemented  using  the  ®RINTF  routine  in  the 
UNIX  library  or  oy  allowing  the  user  to  directly  u'se  FRINTF 
vice  the  CALL  and  ExTERN  statements. 

A TRACE  instruction/  similar  to  that  provided  in  many 
COBOL  implementations/  would  list  the  source  program  Mne 
numbers  as  each  statement  was  executed  ana  optionally  print 
the  current  values  of  selected  variaoles.  An  accompanying 
ufi TRACE  statement  would  disable  •■he  trace.  This  could  be 
easily  implemented  using  flags. 

Additional  string  operators  could  include  a searcn 
function  which  would  determine  the  Position  of  one  string 


within  another,  and  a substring  r eo ) ac enen t oceration  whicn 
would  replace  a substrina  with  another  (oossibly  null) 
string.  String  concatenation  could  be  i t'd  1 er- e n t eo  ^or  use 
in  Duilding  strings  by  buffered  inout/output  ana  using  the 
UNIX  routines  GETC  ana  PUTC. 

Ranaom  access  to  elennents  of  external  files  would  be 
enhancing  for  file  'ranaoenen  t , but  would  not  greatly  in- 
crease the  flexibility  of  tne  existing  file  management 
methods  used  in  graphics  work.  This  might  be  acc omo 1 i s he d 
by  creating  an  array  of  dooe  vectors  at  the  peginnino  of 
each  external  file.  Each  vector  would  contain  the  beginning 
address  of  each  record  and  the  length  of  the  record. 

Scientific  notation  would  enhance  numeric  output  ny  ex- 
panding the  range  of  numbers  which  could  be  comfortanly 
printed  on  an  output  cage. 
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II.  conclusions 


T^ie  extended  Basic  conoiler  presented  in  this  ti^esis  is 
a working  software  package.  It  has  demonstrated  that  it  is 
caoaple  of  pe  r i oq  graphics  work  in  the  Nava)  Postgradu- 
ate School  Computer  Laboratory,  and  will  provide  a measur- 
able  improvement  to  graphics  efforts  of  coth  Computer  Sc  i - 
ence  and  non-Computer  Science  students  than  was  previously 
afforded  by  the  UNIX  system  library  of  programming 
1 anguage  s . 

Improvements  noted  in  the  Recommendations  section  ac 
not  represent  all  possible  improvements,  but  only  trcse 


developed  or  gen^atea  durina  development  and  testing  of 
this  Basic  compiler. 


apPENOIX  I - EXTENDED  BASIC  LANGUAGE  MANUAL 


E 1 emen  t s of 

ext  ended  3as 

i c 

are  listed 

in  alohabet 

1 C o 1 

order  i 

n 

this 

section  of 

the 

t nes  i s . 

A 

synoosis  of 

each 

e 1 emen  t 

i s 

given 

, followed  bv 

a 

desc  r i ot  i 

on 

and  examples 

0 f 

its  use 

• 

The 

intent  is 

t o 

D r 0 V i ne 

a r 

eterence  for 

t n e 

features 

o f 

this 

imolementati 

on 

of  BASIC 

and 

not  to  t 

each 

the  BASIC  languaae. 

A croopa'T'  consists  of  one  or  r-ore  crooerlv  former  ex- 
tenaeo  Basic  statements.  An  ETjC  statement,  which  must  ce 
cresent/  terminates  the  oroqram,  ana  adaitional  statements 
are  ignored.  The  ASCII  character  suDset,  consisting  of  al- 
ohanumerics  and  the  scecified  scecial  characters,  is  accent- 
ed . 

In  this  section,  the  "synoosis"  oresents  the  General 
form  of  the  element.  Sauare  bracxets,  11,  denote  an  ccticn- 
al  feature,  woile  braces,  {>,  indicate  that  the  enclosed 
section  may  oe  reoeated  zero  or  more  times.  Terms  enclosed 


i n < > 

are 

either  non-terminal 

! e 1 emen t s of 

the  1 

annu  aae , 

which 

are 

further  defined  in 

this  section,  or 

t e r m i 

n a 1 

S V rr.  - 

bo  1 s . 

A1  1 

soecial  characters 

and  caoitalized 

wo  r n s 

are 

ter- 

m i na 1 S ymoo 1 S . 


1 


I 


. . V 


r 


ELEN’EMT  : 


ABS  oreaefined  function 
SYNOPSIS: 

AriS  ( <exoression>  ) 

DESCRIPTION: 

The  ABS  function  returns  the  absolute  value 
<express  i on> . The  arqui>ent  should  evaluate 
floating  DOint  number. 

EXAMPLES: 

ABS(X) 


ABS(X*Y) 


ELEMENT  ; 


ASC 


ASC  Dredefined  function 


SYNOPSIS  : 

ASC  ( <exDression>  ) 


DESCRIPTION: 


The  ASC  function  returns  the  ASCII  numeric  value  of 
the  first  character  of  the  <exoress  i on> . The  arqu'^ent 
should  evaluate  to  a strinq. 


EXAMPLES: 

ASC(Ai) 

ASCC'x") 


ATfiN 

ELEMENT  : 

ATAN  oredeTined  function 
SYNOPSIS; 

ATAN  ( <exDression>  ) 


DESCRIPTION: 

The  ATAN  function  returns  the  arctanaent  of  the  <ex- 
oression>.  The  arqument  should  evaluate  to  a float! nq 
po int  number. 


examples  : 

AT  AN(  X ) 

ATAN(SQHT(SINCX)  ) ) 

programming  NOTE; 

All  other  inverse  t r i qonome  t r i c functions  T’av  be  ccn- 
Duted  from  the  arctangent  using  sir-pie  i a entities. 
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ELENifcNT 


CALL 


CALL  stat “men t 


SYNOPSIS: 

[<)ine  number>]  CALL  [ <variable>  = 1 
<identifier>  ( ( <exoression> 

{ / <e»ppess i on>  } ) J 


DESCRIPTION: 

The  CALL  statement  references  an  externally  ':)efineo  C 
procedure  or  function.  The  optional  <variable>  may  be 
either  a numeric  identifier  or  a string  reference. 
The  call  <identifier>  may  be  up  to  cnaracters  i’' 
length.  If  tne  <variable>  is  presents  then  the  <ioen- 
tifier>  references  a function  ang  returns  a value.  If 
the  <variable>  is  absents  the  <ioentifier>  references 
a procedure  and  returns  no  value. 

A CALL  Statement  should  be  preceeded  by  an  ExTE^^-j 
statement  defining  tne  form  ano  nature  of  tne  <ioen- 
t i f i e r > . 

A CALL  statement  may  have  an  infinite  nymcer  of  argu- 
ments which  should  each  be  valio  <exrressions> 
evaluating  to  numeric  or  character  values.  Arouments 
may  further  evaluate  to  array  cointers  i previously 
declared  as  such  in  the  EXTERN  statement.  If  tne  ar- 
oument  is  declared  to  be  of  type  char/  then  the  argu- 
ment value  may  consist  of  one  character.  To  pass  a 
string  of  characters  as  an  argument/  tne  aroument  may 
be  of  type  *<■  char#  which  imolies  a vector  of  crarac- 
ters/  or  a character  string. 

If  a call  statement  has  no  arguments/  then  tne  entire 
argument  list  may  be  omitted  fro'  the  statement. 

examples : 

CALLi=testl("tesfX") 

call  sin«(  snip  ) 

call  aS(3!5)  = strgC  less  ) 

CALL  list 

call  movabs  ( x / y ) 
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programming  NOTE: 


<identifiers>  ^ay  be  ud  to  nine  characters  in  length. 


ELEMENT  : 


CHRS 


CHRS  predefined  function 


SYfJOPSI  0 : 

CHRS  ( <e»Dress i on>  ) 


OESCRIPT lUN; 

The  CHRS  function  returns  a character  string  of  length 
1 consisting  of  the  character  whose  <1SCII  eauivalert 
is  the  <exoression>  truncated  to  an  integer  nrodulo 
128,  The  arguirent  mav  evaluate  to  a floating  ooint 
nu'T'te r . 


examples  : 

CHRSC A) 

CHRSC12) 

CHR$(  ( A+B/Cl  *SII\;(X)  ) 

PROGRAMMING  NOTE: 

ChRS  can  be  used  to  send  the  standard  ASCII  control 
characters  such  as  a formfeed  to  the  output  device. 
The  ‘following  statement  would  accomplish  this: 


PRINT  CHRSnO) 


ELEMEMT 


CLOSE 


close  statement 


SYNOPSIS: 

(<line  number>)  CLOSE  (<constant^) 


DESCPIPIION: 


The  CLOSE  statement 
<constant>  to  be 
referenced  aqain  it 
s t a t emen  t . 


causes  the  file  soec i f i ea  bv  its 
closed.  Hefore  the  file  ’^ay  re 
should  be  reooenea  using  an 


A terminal  error  occurs  if  the  scecifieo  file  has  not 
oreviously  aooeared  in  an  OPEN  statement. 


EXAVPlES: 


CLOSE  (1) 


PPOGSAi^wiNG  NOTE: 


On  normal  comgletion  of  a orogram  all 
closed.  If  the  oroaram  terminates 
Dossible  tnat  files  created  oy  the 
lost. 


ocen  f i 

acno  rr a 1 

D r 0 g r a m. 


1 es  are 
1 y it  IS 
may  re 


SO 


CUL 

ELEMENT  : 

COL  oredefinerl  function 
SYNOPSIS ; 

COL  ( <exoression>  ) 

DESCRIPTION: 

The  COL  function  defines  the  column  ^iatn  for  a ny-ner- 
ic  outout.  Tne  default  width  value  is  10  niqits»  in- 
cluding the  sign  ang  the  deci'^al  point. 

The  COL  function  should  be  used  only  in  a PRINT  state- 
ment . 

EXAMPLES: 

print  COL  ( 1 ) 
print  C0L(i*j) 


ti 


ELEMENT 


<Constart> 


<COnst  ant  > 

SYNOPSIS: 

[<siqn>l  <inteqer>  [,1  [ <inteqer>  1 

ri  <character  stpinq>  ("] 


DESCRIPTION: 

A <constant>  ""av  be  eitPen  a numeric  constant  cr  a 
strinq  constant.  Al)  numeric  constants  are  stereo  as 
floatinq  DOint  numoers.  Strinas  may  contain  anv  ASCII 
character  exceot  >»  /^hich  may  be  reoresenteo  as  >. 

Numeric  constants  may  he  either  a siqneo  or  unsionec 
inteqer  or  Oecimal  number.  Strinq  constants  may  oe 
up  to  255  characters  in  lenqth.  Strings  entered  fnom 
the  console  tor  an  ICiPijT  statement  may  net  contain 
quotes,  riowever,  a double  ouote  or  a newline  may  ce 
used  to  terminate  a string  during  INPuT  or  REA, 3. 
Strings  entered  from  a data  statement  should  oe  en- 
closed in  quotes,  since  they  are  found  in  the  croqram. 
Strings  read  from  a file  may  not  contain  quotes. 


examples : 

1 0 

-100.75639 

"THIS  IS  THE  AMS^ER" 


PROGRAMMir,r,  NOTE: 

The  line  continuation  character  (cj))  may  not  ee  used  in 
the  oroqram  for  carrying  string  constants  to  another 
line. 


ELEyE^JT 


cus 


cos  Dredefined  function 
SYNOPSIS : 

C0S(  <expression>  ) 

DESCRIPTION: 

COS  is  a function  v^hicH  retunns  the  cosine  of 
oression>.  The  araunent  should  evaluate  to  a 
Doint  number  excressed  in  radians. 


EXAMPLES: 

C0S(6) 

COSCSQRT (X-Y)  ) 


b?. 


the  < ex- 
f 1 oat  i nq 


ELEVEN! 


CuSh 


COSH  predefined  function 
SYNOPSIS: 

COSh  ( <exoression>  ) 

DESCWIPTIOM: 

COSh  is  a function  wnicn  returns  tne  hyper oolic  cosine 
of  the  <express i on> . The  argument  snou'c  evaluate  to 
a floating  ooint  numOer. 

EXAMPLES : 

COSH(X) 

COSHCXt2+YT2I 


ELEMENT 


DA  T4 


DATA  state'rent 


SYNOPSIS  : 

[<1ine  number>l  DATA  <constant>  it  <constant>) 
DESCRIPTION; 

DATA  statei^ents  define  floatinq  ooint  and  string  con- 
stants which  are  assigned  to  variac'es  using  a READ 
statement.  Any  number  oT  DATA  statements  may  occur  in 
a program.  Strings  and  numeric  elements  are  stored 
separately.  The  ordering  oT  strina  ana  number  ele- 
ments in  a data  statement  need  not  match  the  ordering 
in  the  c o r respond  i ng  read  stat>»ment.  Toe  first  occu- 
rance  of  an  element  type  will  be  read  wren  aefi'andeo. 
The  constants  are  stored  consecutively  for  eacn  tyre 
in  a data  area  as  they  appear  in  tne  croaram  anc  are 
not  syntax  checked  by  the  compiler.  Cnaracter  strings 
Should  be  enclosed  in  quotes.  Data  elements  should  ne 
separated  by  commas. 

Should  either  type  of  data  be  exhausted,  a restore  for 
that  type  only  is  generated.  If  a type  is  reauested 
when  no  data  is  defined,  a terminal  error  results. 


EXAMPLES: 

10  DATA  10.0,11.72.100 

DATA  "Th'is  is  a string.  ",5.10. 4,  "The  Eng" 

pR0GRAMMI,\g  NOTE: 

The  RESTORE  command  may  be  used  to  reread  a data  line. 
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9 


DhF 


ELEVEN! ; 

DEF  statement 

SYNOPSIS: 

(<line  number>]  DEF  <funcrion  name>  (<variarile> 

{,  <variable>})  = <exDression> 


DESCRIPTION; 

The  DEF  state'^ent  specifies  a user  defineo  furcfion 
which  returns  a floating  ooint  numcer.  One  cr  more 
arguments  are  passed  to  the  function  and  are  used  in 
evaluating  the  expression.  The  values  mav  re  in 
floating  point  form.  Recursive  calls  are  not  permit- 
ted. 

The  <expression>  in  the  define  statement  may  reference 
<variables>  other  than  the  dummy  arguments»  in  wnicn 
case  the  current  value  of  t*^e  <variaple>  is  usea  in 
evaluating  the  <exoresss i cn>  . 

The  first  two  alohanunerics  o^  the  <*-unction  na.me> 
should  be  FNf  Fn,  fN  or  fn.  The  <function  name>  mav 
not  exceed  a total  of  four  characters. 

examples : 

10  DEF  FNA(X,Y)  = X + Y 
OEF  FNC(A,b)  = A a B 


- A 


- FNA(A,5)  + D 
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• 4- 


% 


r 


ELEMENT 


CEG 


OEG  oredeTined  function 


SYNOPSIS; 

DEG  ( <exDnession>  ) 


DESCRIPTION:  ] 

Tne  OEG  function  convents  toe  floating  ooint  value  of 

the  <exDPession>  into  deonees.  Tne  <exDnession>  j 

should  evaluate  to  a floating  ooint  value  in  radians.  5 

examples; 

DEG  ( J.ialSR  * j ) ! 

1 

.1 


9 

ii 

•1 

J 


1 

! 


b6 


E L T 


01  '1 


DI^'  statement 


SYNOPSIS : 


1)  l<)ine  number>)  01'^  <iaentitjer>  (<subScrio'’  list>) 
{ , < i aen t i ^ 1 e r > (<su05Criot  list>)> 

2.)  t<line  number>]  DIM  <identitieo  (<constant>) 

( ( <subsc  riot  1 i s t > ) ] 

{ » < i cen t i H e r > (<constant>) 

( (<subscriDt  list>)  )} 


DESCWI'^T  ION: 


The  dimension  statement  statically  allocates  soace  tor 
floating  Doint  or  String  arrays.  String  array  ele- 
ments may  be  of  any  length  uo  to  327o7  characters. 
String  array  length  shou'd  oe  scecifiea.  Initiallyf 
all  floating  Doint  arrays  are  set  to  zero  and  all 
string  arrays  are  null  strings.  *ln  arrav  may  re 
dimensioned  exolicitly?  no  aefault  octions  are  crovid- 
ed  exceot  for  string  arrays  which  default  to  1 element 
if  the  <subscrict  list>  is  absent.  iirrays  are  stores 
in  row  major  order.  The  <suoscriot  list>  may  consist 
of  integers.  All  subscriots  have  a lower  nouno  of  0 
and  an  uDoer  boung  of  n,  for  a total  of  n+1  elements. 


The  tyoe  1 01’*'  statement  aoove  refers  scecifically  to 
an  array  of  numeric  elements.  Tyoe  2 refers  to  string 
arrays.  doth  tyoes  of  arrays  may  be  combined  in  one 
DI'-'  statement.  however  all  the  reauireo  elements  in 
the  synopsis  may  oe  present  for  each  tvoe. 


<constant>  may  be  i nc 1 uoea  for  all 
may  not  be  oresent  for  floating  do 
array  elements  coin*  to  vectors  of 
with  a maximum  number  of  characters 
eaual  to  <constant>.  The  <subsc 
string  array  may  not  have  more  than 


string  arrays  anj 
int  arrays.  String 
character  strings 
t or  string  length, 
riot  list>  for  a 
one  element. 


examples: 

OI'*'  A(  10,20)  , B(  10) 
Or^  BS(2)(5),C(7) 


g7 


ELEMENT 


END 


END  staten'ent 
SYNOPSIS : 

(<Hne  numte  r > ] END 
DESCPIPTION: 

An  ENO  state'^ent  indicates  the  end  ot  the  source  oro” 
gram.  It  any  statments  tollo^^  the  ENO  statement  they 
are  ignored. 

EXAMPLES : 

10  ENO 
ENO 

PPOGRAMMING  NOTE: 

If  a STOP  statement  does  not  oreceea  an  ENO  statement 
somewhere  in  tne  program,  a STOP  statement  is  automat- 
ically inserted  before  the  END  statement. 
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ELEMENT 


<exec  statem«?nt> 


<exec  star  ement  > 


SYNOPSIS: 


(<1 

i ne 

numbe  r> 1 

[< ) 

T ne 

numbe  n>  J 

C<1 

1 ne 

n umbe  n > I 

[<1 

i ne 

n umoe  r > 1 

(<1 

i ne 

number>] 

C<1 

i n e 

numbe  r > ] 

(<1 

} ne 

numbe  r> 1 

K1 

1 ne 

n umb e r > ] 

C<1 

i ne 

numbe  r> 1 

(<1 

i n e 

numbe  n> ) 

(<1 

1 ne 

numbe  r > ) 

(cl 

1 ne 

numbe  r> 1 

[Cl 

) ne 

numbe  r> 1 

[cl 

i ne 

numbe  r> 1 

[cl 

1 ne 

number  > ] 

[cl 

i ne 

numoe  r > 1 

[Cl 

i ne 

numc  e r > ] 

(Cl 

i n e 

n umbe  r > ] 

[cl 

i n M 

numbe  r > 1 

CALL  statement  <cr> 

CLOSE  statement  <cr> 

END  statement  <cr> 

EXTERiN  statement  <cr> 
GOSUB  statement  <cn> 

GOTO  statement  <cr> 
irjPlJT  statement  <cn> 

LET  statement  <cn> 

■'I EXT  statement  <cr> 

ON  statement  <cr> 

OPEN  statement  <c  r> 

PPINT  statement  <cn> 
PRINT  8 statement  <cr> 
RAi'lDOMIZE  statement  <cr> 
READ  statement  <cr> 

READ  a statement  <cr> 
PESTORE  statement  <cn> 
return  statement  <cr> 
STOP  statement  <cr> 


DESCRIPI ION: 

An  <exec  statement>  is  the  onlv  allowacle 
statement  in  an  IF  statement  construct. 
ments>  may  aDoear  as  <simnle  statements> 
the  orogram. 

NOTE: 

See  <stat  ement  > . 


bP 


executaol e 
<exec  state- 
t h rouahout 


ELEMENT 


EXP 


ExP  preaefined  functic^ 

SYNOPSIS: 

Exp  ( <expression>  ) 

DESCRIPTION: 

The  EXP  function  returns  e (3.7182^....)  raised  to  tne 
Power  of  the  <exoress  i on> . The  arau""ent  should  evalu- 
ate to  a floating  point  number. 

examples : 

EXP( XI 
EXPCLOGCXI  ) 


I 
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ELEMENT 


<exDress i on> 


<expressi on> 


DESCRIPI lUN: 


Exoressions  consist  of  algebraic  combinations  cf  vari- 


aoles,  constants*  ana  operators. 

The  hierarchy 

0 f 

ope  r a t o r s 

i s : 

1 ) 

( ) 

2) 

r 

5) 

* f / 

a ) 

h/  -f  unary  +,  un 

ary  - 

5) 

re  1 at i ona 1 oos  < > 

<= , > , 

>= , = , <> , n= , 

; = 

LT, 

LE,  GT, 

GE,  EQ,  NE 

b) 

NOT (<exoression>) 

7) 

AND 

8) 

09,  X09 

Pel  at i on  a 1 

ooe  r a t ors  result 

1 n a 

0 if  f a 1 s® 

an  -3 

nonzepo  (1)  if  true.  Strina  variables  may  be  ccerateo 
on  only  by  relational  ocerators.  "‘'ixea  string  anj 
numeric  comparisons  are  not  Permitted. 


The  three  types  of  expressions  are  strinc:,  arithmetic 
ana  boo  lean. 


examples; 

X t Y 

(A  <=  R)  09  (C5  > 05)  / (A  - 3 ANQ  0) 


7 1 


ELEMENT  : 


ExTEKN  stat  eneri  t 


[<line  nunr.bet'>l  EXTERN  (<tyne>)  <identifiep>  t (<tyoe> 
it  < t yoe>  } ) 1 


DESCRIPTION: 

The  EXTERN  statement  declares  the  tyoe  of  procedure  or 
function  referencea  by  the  <identifier>  in  a CALL 
statemenf.  The  <ioentifier>  is  from  an  externally  de- 
fined library  and  cannot  be  internally  redefined  by 
the  user.  The  EXTERN  statement  snould  creceed»  and 
may  aonear  at  any  ooint  prior  to»  the  CALL  statement. 

If  the  first  optional  <type>  is  rrissinq,  tnen  that 
<type>  defaults  to  integer. 

Tne  five  varieties  of  <tyoe>  are  integer,  float.  dou- 
ble. char  and  addr.  These  types  nay  alternately  be 
declared  as  arrays  by  preceeding  the  type  by  i.  as  in 
S integer,  & float.  % double.  & char  and  i ador. 

The  EXTERN  statement  nay  declare  an  infinite  number  of 
arguments  for  the  procedure  or  function. 

EXAMPLES; 

extern  q i n i 1 1 ( i n t ege r ) 

extern  inteqer  m o v e ( i n t eqe r . i n t ege r ) 

extern  & char  An<t(  i float.  < char)  i 

extern  oerase ( ) 

extern  newoaq 

il 

I 

i) 

I 


element 


FOW 


FUR  stateirent 


SYNOPSIS: 

[<1ine  number>]  FOP  <index>  = <exDreSS'on>  TO 

<exDression>  [STEP  <e x d rp s s i on> ] 
< s t a t em?o  t li s t > 

(<line  number>)  NEXT  (<index>J 


DESCRIPTION: 

Execution  of  all  statements  between  the  FOR  statement 
and  its  CO r resDcnd ) nq  NEXT  statement  is  reneateo  until 
the  indexing  variable  reaches  the  exit  criteria.  If 
the  steo  is  oositive»  the  loot)  exit  criteria  is  that 
the  index  exceeos  the  value  of  the  TO  <exoress i on> . 
If  the  steo  is  negative#  the  inaex  should  be  less  than 
the  TO  <exoression>  for  the  exit  criteria  to  be  met. 

The  <index>  may  be  an  unsubsc r i pt eo  variable  and  is 
initially  set  to  the  value  of  the  first  <excr«»ss  i on> . 
If  the  exit  criteria  as  mef  on  initial  entry,  0 execu- 
tions of  the  loop  are  performed.  If  the  STE®  clause 
is  omitted,  a default  value  of  1 is  assumed.  A steo 
of  0 may  be  used  to  loop  i nde f i n t t e 1 y . 


EXAMPLES: 

FOR  I = 1 TO  10  STEP  3 

FOR  INOx  = J*K-L  TO  10*SIN(X) 

FOR  I = 1 TO  2 STEP  0 
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<function  naT,  e> 

ELE^'ENT  : 

< f unc  t 1 on  name> 

SYNOPSIS; 

EN<identitien>  or  Yn<identif'ier> 

DESCRIPTION; 

Any  <identifier>  Starting  witti  fn,  f h , FN , or  F n 
refers  to  a user-defined  function.  The  <functicn 
name>  snould  appear  in  a DEF  state^ient  prior  to  ac- 
oearinq  in  an  <e*Dress i on>  . 

There  nav  not  be  any  soaces  between  the  Ft;  or  fn  ang 
the  < i dent i f i er>  . 

examples  ; 

FNA(xJ  = X 1 2 

fnAr(i»j)  = i*j 


GOSUb 


ELEN»ENT  ; 


GOSUti  statement 


SYNOPSIS: 


[<line  number>1  GOSUB  <line  number> 
[<line  number>)  GO  SUB  <line  nutnber> 


DESCRIPTION: 


The  address  of  the  next  sequential  instruction  is 
saved  on  the  run-time  Stack,  and  control  is 
transferred  to  the  subroutine  labeled  with  the  <)ine 
number>  followinq  the  GOSUB  or  GO  SUB. 


examples : 


10  GOSUB  300 


GO  SuB  100 


. ■ tU 


ELEN'ENT  ; 


GOTO 


GOTO  s t a t c^en  t 
SYiMOPSiS; 

(<Hne  numbeol  GOTO  <line  nu'ncer> 

(<line  number>)  GO  TO  <1ine  nu"'ber> 

DESCPIPTIOM: 

Execution  continues  at  the  state^'ent  tacetea  witn  f’e 
<line  nunnoeo  foHowina  the  GOTO  on  GO  TO. 

examples : 

100  GOTO  50 
GO  TO  10 
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ELEMENT  : 


< i dent i T i e r > 


<identifier> 

SYNOPSIS: 

<letter>  { <letter>  or*  <nu'nber>  } t ? ] 

DESCRIPTION; 

An  identifier  bedins  with  an  alobabetic  character  fol” 
towed  by  three  alohanuneric  characters.  If  the  second 
or  third  character  is  a dollar  s i qn  the  associated 
variable  is  of  tyoe  strina»  other>,ise  it  is  of  tvoe 
floating  ooint. 

examples: 

A 

BS 

Xy6 

programming  NOTE; 

All  non-reserveo  identifiers  -ray  consist  of  any  ■"  i x - 
tore  of  uDoer  and  lower  case  letters  ang  numerics. 


tLE'^P.MT 


IF 


IF  s f a t efen  t 

SYSOPS  I S : 

(tiiTe  nuwher>)  IF  <exDression>  GC  TO  <line  nuf»'ber> 

[<line  nunber>)  IF  <exoression>  TmEFJ  <exec  state'^ent> 

(<line  nu"'fcer>l  IF  <e*DPession>  THFO  <exec  s t a t e^’en  p > 
ELSE  <e»ec  statement> 
o r 

ELSE  IF  state  "-.enr 

DESC'^IPT  IQ''j: 

If  ttie  value  of  t^e  <e*Dression>  is  not  0,  the  follow- 
ing occurs; 

1)  the  GOTO  causes  an  unconditional  brancn  to 
< I i ne  numbe  r>  , or 

2)  the  <exec  statement>  following  the  ThE^.'  is 
executed. 

If  the  value  of  the  <expression>  is  0,  the  followinu 
occurs  ; 

1)  either  the  <exec  statenent>  or  the  IF  state- 
ment following  the  ELSE  is  execute 0»  or 

2)  the  next  seouential  statement  in  tne  croorsm 
is  executed. 


examples: 

IF  A5  < B$  THEfv  X=  Y*Z 

IF  (A5<B$)  AND  (C  OR  0l  GO  TO  300 

IF  J AND  K THEN  GOTO  11  ELSE  GOTO  12 


PROGRA'^MING  NOTE: 

The  line  continuation  symbol  ( "i/ ) may  be  used  following 
the  THEN  or  ELSE  symbols  to  oroduce  more  readable 
code: 

ifx  = ythen<i)  ^ 

Z = 2 + 1 111 

else  n) 

D r i n t X - y 
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ELEMENT 


irgpur 


[NPU T statement 


SYNOPSIS: 

[<line  nurnber>)  INPUT  [<pro'rot  strinr3>  ;I 
<variable>  <vari3dle>  > 

<Dfompt  strinq>;  <vari-3ble> 
{ , <variable>>! 


DESCRIPT  ION: 

The  <orompt  strinq>,  if  presents  is  printed 
cpnsole.  A prompt  strino  may  he  follo-ert  py 
colon,  A line  of  inout  data  is  read  frpm  the 
and  assigned  to  tne  variables  as  they  appear 
variable  list.  Data  items  oreceedea  bv  prompt 
should  ne  separated  by  a carriaoe  return.  Stri 
not  be  enclosed  in  quotation  marks. 


examples : 

10  INPUT  A,B 

INPUT  "SIZE  OF  ARRAY?";  N,  "DEFAULT  VALUE?"; 
INPUT  "VALUES?";  A ( I)  ,B  ( I ) ,C  ( A ( I ) } 


on  the 
a se""!- 
consol  e 
in  tne 
St  r i n a s 
nos  may 


> 


i nou  t a S 


a { i ) 


INT 

ELEMENT  : 

INT  ore(ieTiri9cl  function 
SYNOPSIS ; 

INF  C <exDressicn>  ) 


DESCRIPTION; 

The  I NT  function  returns  the  largest  integer  less  tran 
or  eaual  to  the  value  of  the  <e*Dression>.  The  arau- 
ment  should  evaluate  to  a floating  ooint  numoer. 


examples : 

INT  (AMNT  / 100) 


INTC3  * X * SIN(Y)) 


LET 

ELEMENT  : 

LET  statement 

SYNOPSIS: 

(<line  number>I  ILETl  <variable>  = <exDression> 
DESCRIPTION: 

The  <exDression>  is  evaluated  anc:  assigned  to  the 

<variable>  aoDearinq  on  the  leTt  side  oT  t^e  eoual 
sion.  The  tvoe  of  th<-  <exDress  i on> , either  floating 
point  or  string/  should  match  the  tyoe  of  tne  <vari- 
ab 1 e> . 

EXAMPLES; 

100  let  a = B + C 

X(3, A)  = 7.32  * Y t X(2, 3) 

73  A = (A<B)  OR  (CS>DT) 


I 


A 


ELEMENT : 

< 1 7 ne  nu'T'Der> 


<line  nuTrer> 


SYNOPSIS : 

<ai q i t > { <diqit>  T 


DESCHIPTION; 

<)ine  nu'nbers>  are  ootiona!  on  all  statements  and  are 
ignored  bv  the  comoiler  exceot  when  trey  accear  in  a 
GOTO,  GOSUR,  or  ON  statement.  In  tnese  cases,  the 
<line  nunnDer>  should  aocear  as  the  label  of  one  anj 
only  one  <statement>  in  tne  oroaram. 

<line  numbers^  should  he  less  than  327o7. 


examples:  || 

100  j: 

i 

ii 


fi5 


• .»•»  « e.  - 


ELEMENT  : 


LOG  orpdefinecj  function 
SYNOPSIS ; 

LOG  ( <expression>  ) 


DESCRIPTION; 

The  1 oq  function  returns  the  natural  locarith^i  of  tne 
value  of  the  <exDnession>.  The  arqurient  shoulo  evalu- 
ate to  a non-zero  floating  ooint  numh er. 

neoative  value  will  oroouce  undesirable  results. 

EXAMPLES: 

LOG  (X) 

LOG((A  + B)/0) 


LOGIC  = L0G(X)/L0G(  101 


viOO 


ELEMENT: 

MOD  predefined  function 
SYNOPSIS  : 

MOD  ( <e x o re s s i on > » <exoression>  ) 

DESCPIPT  ION: 

The  MOD  function  evaluates  the  first  <exo''ession> 
modulo  tne  second  <expression>  and  returns  a float 
point  value.  Both  <e*pressions>  should  evaluate  to 
floating  point  numPers, 

EXAMPLES: 

MOD  (x,v) 

MOD  (SORT  (LOG  (X)),  X + Y) 
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NE*  T 

ELEMENT : 

NEXT  state'Tient 

SYNOPSIS: 

(<line  nu'nber>)  NEXT  l<ioentifier>l 


DESCRIPTION: 

A NEXT  state'^ent  denotes  the  end  ot  the  closest  un- 
niatched  FOR  statement.  If  the  oot'cnal  <identifier> 
is  present  it  should  matcn  the  index  varianle  oT  t">e 
FOR  statement  oeinq  terminated.  The  <line  numter>  of 
a NEXT  statement  may  aocear  in  an  ON  or  GOTO  state- 
ment/ in  which  case  execution  of  the  FOR  Iood  contin- 
ues with  the  loop  variables  assuming  their  current 
values. 

/Vhile  it  is  oossible  to  branch  into  a locof  it  is  un- 
desiraole  since  the  looo  will  not  he  oroperly  execut- 
ed. Those  statements  occurinq  at  and  after  the  ad- 
dressed statement  will  be  executed/  ana  the  NEXT 
statement  will  be  ignored. 


EXAMPLES : 

10  NEXT 
NEXT  I 


B6 


• ■<-  > 


« Al  « . ./•*  « 


ELEMENT 


ON  statement 


SYNOPSIS: 


(1)  (<line  number>)  ON  <exoression>  GOTO 

<Hne  number>  {»  <line  number>T 

(^)  [<line  number>]  ON  <expression>  GO  TO 

<line  numbef'>  {,  <1ine  numcer>T 

(3)  [<line  numben>l  ON  <exDression>  GOSUB 

<line  nurpoer>  {»  <line  numner>} 

(y)  C<line  numDer>)  ON  <exDression>  GO  SUb 

<Hne  number'>  { / <line  numDer>T 

(5)  [<line  number>]  ON  <exDressicn>  THE I'l 

<line  number>  {*  <line  number>T 


DESCWIPTION: 


The  <e  X D re  s s i on  > f truncateo  to  the  nearest  inteoe'* 
value#  is  used  to  select  the  <line  nu’"ber>  at  »hicn 
execution  will  continue.  It  the  <exDression>  evalu- 
ates to  1 the  first  <line  number>  is  selected  and  so 
forth.  In  the  case  of  an  ON  ...  GOSUB  statement  tne 
address  of  the  next  instruction  becomes  the  return  ao- 
dress.  ON  ...  THEN  oroduces  the  same  results  as  Oti 
...  GO  TO 

If  the  <exoression>  after  truncating  is  less  than  one 
or  greater  than  the  number  of  < 1 i ne  nurrbers>  in  tne 
list#  the  nroaram  continues  with  t^'e  next  executable 
statement  . 


EXiMPLES; 


10  ON  I GOTO  10,  20,  30,  00 

ON  J *K-M  GO  SUB  10,  1 , 1 , 10 


. T » 


OPEN 

ELEMENT : 

OPEN  statement 

SYNOPSIS: 

(<1ine  number>]  OPEN  (<Yile  number>»<moae>)  <tile 
name^ 


DESCRIPTION; 

The  OPEN  statement  ooens  the  <file  numren>  tor  rancjcm 
access  (<mode>  0),  reading  (<mode>  writing  (<'-oce> 

apoendinq  (<node>  3).  <file  name>  is  a string  of 
ASCII  characters  which  represents  tne  file  specitiea 
by  <fi1e  number>.  A file  is  created  by  the  first  OPEN 
statement  for  <file  name>  and  <file  nuToer>  with  the 
write  <mode>  specified.  Attempts  to  open  a non- 

existant  file  for  reading  will  cause  a fatal  error, 

Althoudh  the  programmer  may  have  uncountaoly  "an/ 
filesr  limited  only  by  the  number  of  <file  na"es> 
available?  a maximum  of  IS  files  may  be  open  at  any 
one  time.  <file  numbers>  are  restricted  to  the  se- 
ouence  0-ly  inclusively.  No  two  <file  numcers>  for 
open  files  may  be  the  samp,  but  should  be  unique  for 
each  open  file. 

The  <file  number>  will  be  usea  for  input/outout  ant 
closing  of  files.  It  is  the  so'e  uniform,  reference 
between  the  above  statements. 


EX AMPLES ; 

1 u open  (1,1)  " d a t a 1 " 
open  (5,0)  "field” 


FA(;t 

ELEMEiNT  ; 

PAGE  predefinea  function 


SYNOPSIS  : 

PRINT  PAGE 


DESCRIPTION: 

The  PAGE  function  causes  a new  page  comnana  to  be  is- 
sued. The  page  nrint  function  should  not  be  used  on 
the  console*  since  it  will  cause  unoesirable  effects 
on  the  CRT  sc  reen . 


examples : 

print  page 
programming  NOTE: 

PRINT  PAGE  is  the  sane  as  PRINT  CnPS(103.  It  snou'd 
be  used  in  the  sane  nanner  as  TAB  or  CCL>  wnich  is 
only  in  a PRINT  statement. 


ELEMENT 


PRINT 


PRINT  statement 


SYNUPSlS: 

[<Hne  nu<rber>]  PRI^IT  <exoression>  <^eHm> 

{ <excression>  <oelifr>  ) 


DESCRIPTION: 

A PRINT  statement  senos  tne  value  of  the  exoressions 
in  the  expression  list  to  the  console.  A space  is  ao- 
pendea  to  all  numeric  values  and  if  the  nijmeric  item 
exceeds  the  riqht  marqin  then  the  print  Duffer  is 
dumped  before  the  item  is  printed.  The  <::elim> 
between  the  <expressions>  ■"ay  be  either  a comma  or  a 
semicolon. 


If  the  <delim>  is  a comma/  the  output  of  elements  is 
sequential  on  an  output  line.  If  the  semicolon  is 
used/  the  print  Duffer  is  dumped  uoon  encounterinq  the 
semicolon/  and  the  next  line  is  beaun.  If/  however, 
the  semi-colon  occurs  at  the  end  of  the  list  of  ele- 
ments to  be  printea,  no  newline  is  issueo,  ano  subse- 
auent  printing  will  heqin  at  the  next  Position  qn  the 
line. 


examples : 


PRINT  A,  B,  "THE  answer  IS";  x 
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ppr 


ELEVEN!: 

PRINT  « state'^enf 
SYNOPSIS; 

f<Hne  number>)  PRITJl  <file  nu'^bPr>  : 
<expression>  ■( » <e  x n re  s s i or  > } 


DESCRIPTION: 


PRINT  3 causes  the  cutout  for  a oroqrar  to  be  oirect<»q 
to  the  inaicatea  file  nurrber.  Before  a transaction 
fray  tai<e  otace»  a file  shoulo  be  ooeneo  usinq  toe  OPEN 
cofiimanq  with  rioae  2 or  3.  The  file  is  an  external 
file  in  the  user's  oi rectory.  This  allots  tne  user  r o 
store  oroqrann  results  externallvf  ana  to  eventually 

externa' 


output  the  results  to  an 
line  orinter. 


nevice/  such  as 


tne 


examples  : 

PRINT  ^ 2 
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ELEMENT 


t^AD 


RAO  oredefined  ^unction 

% 

SYNOPSIS: 

RAO  ( <expression>  ) 

DESCRIPTION: 

The  RAD  function  converts  the  value  of  tne  <exDres- 
sion>  into  a radian  value.  The  <exoression>  snoulo 
evaluate  to  a floating  point  nunrer. 

examples  : 

RAO  (180  * i) 


L 


$ • 


A 


PANQQmi /E 

ELEMENT  : 

RANDOMIZE  statefrent 
SYNOPSIS: 

l<1ine  number>]  RATiDGl'iIZE  t(<numeric  expression?)) 
DESCRIPTION; 

A RANDOMIZE  staterient  seeds  the  rdrdO'n  nun^oer  genera- 
tor with  1501»  if  no  <numeric  expression?  arguTpnt  is 
Supplied^  ana  <numeric  expression?  '^ooulo  2**15  - 1 if 
speci fied. 

examples : 

10  randomize 

randomize  (1013) 


ELEMENT 


read  statement 


SYNOPSIS  : 

[<line  number>)  READ 

<variao)e>  {,  <variable>  > 


DESCRIPTION: 

A READ  statement  assians  values  to  variac'es  in 
variable  list  from  DATA  statements.  fields  m^y 
floatinq  ooint  or  string  constants  and  are  aeHm 
by  a comma . 

DATA  statements  are  orocessed  seauentially  as  trey 
Dear  in  the  orodram.  An  att^mot  to  read  past  the 
of  the  last  data  statement  produces  an  error,  ana 
tomatically  generates  an  aocrcpriate  ‘RESTORE.  An 
tempt  to  read  non-existant  data  /.ill  produce  a te 
nal  error. 


EXAMPLES: 

100  READ  A,B,CJ 


1 e 
c e 
i t e ''.J 


ec  - 
e m 
au  - 
at- 


ELEMENT  : 

READ  » statement 


READ 


SYNOPSIS: 


t<1ine  number>)  READ  s <f 
<var i ab 1 e>  < » 


1e  nunner> 
<variar-il«> 


DESCRIPTION: 


A READ  J» 
variable 
records 
nurioe  r > . 


staterient  assicns  values  to 
list.  Values  are  read 
ro'T  tbe  external  file  soecif 
Fields  may  oe  floatina  coin 


variables  in  tre 
f rom  seauen  t i a 1 
ied  bv  tbe  <file 
t or  strinas. 


EXAMPi  ES: 
200 


READ  a i;  PAyo,  PAyo,  hRSR,  hRSO 
READ  a 2}  x,v,zS 


A044  366 
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MICROCOPY  RESOLUTION  TEST  CHARI 

NATIONAL  lUlHIAll  Ot  STANDARDS 


ELEMENT 


kEM 


f^EM  statement 
SYNOPSIS : 

t<line  number>]  RE'M  [<remartc>] 

[<line  number>l  REMARK  (<remark>] 

DESCRIPTION; 

A R£M  statement  is  lancrea  by  tne  comoiler  am  cc 
lation  continues  with  the  statement  follow  in  q t^^* 
carriaae  return.  Th«>  REM  statement  may  ce  useO  to 
cument  a orogram.  REM  statements  bc  not  affect 
size  of  oroqram  that  may  be  comoileo  or  exec u ten. 

A REM  statement  may  oe  the  object  of  either  a r;0Tu 
GOSUB  s t a t emen  t . 

EXAMPLES: 

10  REM  THIS  IS  A remark 
20  remark  This  is  another  remark. 


Rb 


"T  i ” 
next 
rto  - 
tne 


o r 


ELEMENT 


reservea  list 


reserved  word  list 
SYNOPSIS: 


< 1 et  ter>  { 

< 1 e 1 1 e r > 

} [ S 1 

DESCRIPTION: 

The  following  words 
may  not  be  used  as 

are  reserved 
< i dent i f i e r s > 

by  ext  ended 

basic 

A8S 

AMO 

ASC 

A T A N 

call 

CHRS 

CLOSE 

COL 

COS 

COSH 

DATA 

DEF 

DEG 

1;  I M 

ELSr 

END 

EO 

EXP 

FILE 

FOP 

GE 

GO 

GOSUd 

GOTO 

GT 

IF 

INPUT 

INT 

LE 

LEN 

LET 

LOG 

LT 

MOD 

NE 

NEXT 

NOT 

ON 

OPEN 

OR 

PAGE 

PRINT 

RAD 

random  I ZE 

READ 

REM 

RESTORE 

RETURN 

RND 

SIN 

SINH 

SORT 

STEP 

STOP 

T Ab 

TAN 

THEN 

TO 

val 

Reserved  words  may  be  oreceeded  ana  Yq! lowed  bv  either 
a special  character  or  a space.  Soaces  mav  not  be  en- 
oedded  withjn  reserved  words.  Reserved  word  identif- 
iers should  consist  of  uoper  or  lowercase  letters  ex- 
clusively. 


RfJD 


ELEMENT : 

WND  n rede  f i nefi  function 

SYNOPSIS : 

RND 

OESCPIPT ION: 

The  PNC  function  generates  a unifnrtrly  distributed 
ranaoitt  number  between  0 and  1 . 


example  : 

RNO 


1 00 


«1 


ELEMFNT  ; 

<simDle  staterrent> 


<sifrDle  state'pent> 


SYNUPSIS; 

(<1 

i ne 

numbe  r > ) 

DATA 

statement  <cr> 

t<  1 

i ne 

nurnbe  r > 1 

DEF 

statement 

<C  r > 

[<1 

i ne 

nunhe  r > I 

DIM 

statement 

<c  r > 

[<1 

i ne 

numbe  r > ] 

<e*ec  statement>  <cr> 

(<1 

i ne 

numb e r > ) 

FOR 

statement 

<c  r > 

[<1 

i ne 

numbe  r > 1 

IF  statement 

<c  r > 

[<1 

i ne 

numhe  r > 1 

RE'^ 

statement 

<C  r > 

OESCRIPTIOM: 

All  <simo1e  s t a t e-pen  t s > are  ele'rents  of  a <statere^r 
list>  and  are  executaole.  All  <siTDle  stater. ents>  era 
with  a carriage  return  <cr>. 


1 0 1 


* 4-  > 


I • *.% 


A 


SIN 

ELEMENT ; 

SIN  oredefined  function 
SYNOPSIS: 

SIN  ( <expression>  ) 

DESCPIPTION: 

SIN  is  a oredefined  function  which  returns  the  sine  of 
the  <exDPession>.  The  arqument  should  evaluate  to  a 
floating  point  number  in  radians. 

EXAMPLES: 

X = SIN(Y) 

SIN(A  - B/C) 


ELEMENT 


SINH 


SINH  preriefined  function 
SYNOPSIS: 

SINH  ( <exoression>  ) 


DESCRIPTION; 


SINH  is  a function  which  raturns  the  hyoerboli 
of  the  <exDfession>.  The  arqument  should  eval 
a floating  ooint  number. 


c sire 
ua  t e to 


ExiMPLES: 

SINHCY) 

SINH (6  t C) 


103 


ELE'^ENT 


SDecial  characters 


special  characters 


DESCRIPTION: 


The  following  special  characters  are  useci  oy  e»tenaert 
Basic: 


T 

( 

) 

[ 

J 

» 

+ 

/ 

r 

< 

> 


CR 

I 

ol 


tx 

I. 

8, 


c i r c un  f 1 e X 

open  parenthesis 

closed  parenthesis 

open  sauare  bracket 

closed  sauare  bracket 

doub 1 e Quote 

a s t e r i s k 

plus 

minus 

slant 

semicolon 

1 ess-than 

greater-tnan 

eoua  1 

comma 

carriage  return  (new  line) 

exclamation  point 

1 i ne  cont i nuat i on 

tilde 

SubSt  r i nq 

Space 

number  S i an 
do  1 1 a r 
ampp  r s ana 
period 


Anv  special  character  in  the  ASCII  c'^aracter  set  ex- 
cept >»  which  may  aooear  as  \>f  may  appear  in  a 
string.  Special  characters  otner  than  tnose  listed 
above*  if  they  aooear  outside  a string,  will  aenerate 
an  error. 


ELEMEiNT 


SURT  preriefined  function 
Sf'^OPSIS  : 

SCiRT  ( <expression>  ) 

DESCRIPT lOM: 

SORT  returns  the  sauare  root  of  the  absolute  value  of 
the  <express  i on> . The  arqu'nent  shoulo  evaluate  to  a 
floating  point  numoer.  Negative  numbers  ««ill  return 

0. 

ExAVfRLES: 

SQRT  (Y) 

SQRT(XT2  t YT2) 


ELEMENT  : 


<state'^ent  list> 


<state'T>ent  Hst> 

SYNOPSIS: 

<simDle  s t at emen t > 

I<simole  state'^ent>> 

DESCRIPTION: 

A <statement  Hst>  is  a seauence  oT  executable  state- 
ments. All  extended  Basic  statements  are  terminated 
by  a carriage  return  (<cr>). 


ELEMENT 


S rtiP 


S T OP  sfate'nent 
SYNOPSIS  : 

(<1ire  mj'T'DeP^l  STOP 
DESCRIPTION; 

Udoo  execution  of  a <ST0P  statement>f  opogram  execu- 
tion terminates  ano  all  ocen  files  are  closea.  The 
Dpint  buffer  is  emotied  and  control  returns  to  t - e 
Host  system.  Any  nyriher  of  STOP  statements  nay  acrear 
in  a orogram. 

A STOP  statement  is  aonenderi  to  all  orograrrs  fcv  t ^ e 
Como i 1 e r . 


examples : 

10  STOP 
STOP 


ELEMENT 


<subsc  riot  1 i st  > 


<subsc  riot  1 i st  > 

SYNUPSIS; 

<inteqer>  {/  <inteqer>  > 
DESCRIPTION: 

A <subscriot  list>  may  be 
statement>  to  sceci^v  t^e 
tent  each  dimension  o^ 


used 
numoe  r 


a s 
o f 


cart  o t 
oimensicns 


a < 0 I M 
ana  e X - 


the  array  beina  declarec  or 


as  oa  r t 

o f 

a 

<subsc 

rioted 

V a 

riabte>  to  indicate  wrier 

el emen  t 

0 f 

an 

array 

is  be  i 

nq 

referenced. 

E 1 emen  t s 

o ^ 

a 

suhsc  r 

i D t 1 i 

s t 

in  a Cl'-'  statement  ’^ay  he 

i n t eqe  r s 


EXAMPLES: 

X ( 10,20,20) 


ELEMFNT 


T A ri 


TAB  oreOetined  function 
SYNOPSIS: 

TAB  ( <e X D r e s s i on > ) 


OESCRIP I ION; 


TAB  moves  the  text  nointer  to  the  absolute 
dicated  by  the  evaluated  <exoression'>.  If 


column  i n - 

tne  exones- 


sion  evaluates  to  a value  oreater  than  80, 


value 

cause 

sole. 


is  defaulted  to  <exDression>  - ^0  ana 
text  to  wrao  around  on  tne  same  line  at 


the 
^ i 1 
the 


tab 

not 

C on  - 


EXAMPLES: 

TAB  (10) 

TAP  ( i + j ) 


1 OR 


TAN 

ELEMENT  : 

TAN  oreneHned  function 
SYNOOSIS  : 

TAN  { <exDression>  ) 


DESCRIPTION: 


TAM  is  a function  which  returns  the  tangent 
oression.  The  araunent  should  evaluate  to 
Doint  number  in  radians. 


of  the  e’<“ 
a floating 


If  the  <e*cression>  is  a multiole  of  ci/2  radians»  the 
value  returned  is  tne  laroest  or  smallest  numoer  in 
the  system,  deoendinq  upon  which  side  of  zero  is  ao- 
oroached  by  the  function. 


EXAMPLES; 

10  T A N ( A ) 

TANCX  - 5*C0S(Y)) 


no 


VAL  npedeHnen  function 


SYNOPSIS: 

VAL  ( <expression>  ) 


DESCRIP  I ION: 

The  VAL  function  converts  the  string  number  in  ASCII 
oassed  as  a carameter  into  a floating  ooint  number. 
The  <e*oression>  should  evaluate  to  a string. 

Conversion  continues  until  a character  is  encounter® g 
that  is  not  oart  of  a valid  number  or  until  the  eng  of 
the  string  is  encountered.  The  maximum  lengtn  ♦or  a 
string  is  22  digits. 


examples : 

VAL(AS) 

VAL(”5.78P") 

VAL("This  returns  eero") 


ELEME^T : 


<v=»rianlA> 


<vari  aol  e'> 

SYNOPSIS : 

< i rJen  t i f i e r > ((  <subscr'iot  Hst> 

<strinq  ibentifier>  (<beqi^ninq 
1 engt  h > ) 


) ) 

PO  S 1 t i > 


< s t r i ''  q 


DESCRIPTION; 


i <variable>  in 
floating  DO i n t 
t y ce  of 
aocea  r 


extenaeb  Basic 
numfce  r on  a 
ttie  <identifien>.  All 
in  a DI^  statement 


may  eitnen  reoresent  a 
string  deoenging  gn  tne 
stnina  variables  should 
before  being  usea  as  a 


<var i ab 1 e> . 


String  variaoles  may  oe  broken  gown  into  substring  un- 
its ov  indicating  string  name»  starting  character  ang 
length  of  substring.  The  element  <fceginninq  oosition> 
is  an  <e*oression>  and  refers  to  the  first  character 
Dos'ition  of  the  substring.  It  should  evaluate  to  a 
number.  The  element  <string  lenqth>  is  an  <e«ores- 
sion>  and  shoulc  evaluate  to  a numcer.  It  is  the  ab- 
solute length  of  the  substring.  String  character 
count  beqi ns  at  1 . 


examples  : 

X 

Y$ ( 5 : 1 a > 

A6S  (3  I 20  ) 

ABsi  (x(n,Y(n,s(i-in 


APPENDIX  II  - operating  IN  UNIX  nITH  EXTENDED  dASIC 


Lba*  is  the  shell  com'»iand  call  for  the  e*tende'3  basic 
compiler  in  the  PDP-11/50  UNIX  computer  system  at  tre  Naval 
Postaraduate  School.  It  is  of  the  form: 

Ibax  l-C]  C-Sl  (-cl  (-0)  I-r]  [-t]  [-vl  file  ... 

The  system  call  accepts  three  types  ot  arguments: 


Flaas  defined  below?  an  argument  whose  name  ends  with 
'.o'  which  is  ta<en  to  be  a Basic  source  crocram  ana  is  com- 
piled? arguments  endino  in  '.o'  «nich  are  ta^en  as  orject 
files  to  be  passed  to  the  loader. 

The  following  flaas  are  interpreted  hv  Ibax: 

“ C Includ®  the  standard  C library  ^.hen  loadinn  the 
results  of  the  compilation. 

- S Compile  the  named  Basic  program,  ang  leave  the 

assembly-language  outout  on  a corresoonainc  file 
suffixed  '.s'. 

- c Include  the  graphics  Horary  for  the  CO'NOGPAPHiCS 

g r aph i c s device. 

- r Include  the  graphics  library  for  the  RAMTEx  graphics 

device. 

^ - o Compile  the  named  Basic  program,  and  leave  the  ob- 
ject file  on  a corresponding  file  Suffixed  '.o'. 

- t Include  the  graphics  library  for  the  Tortronics 

graph i c dev  ice. 

- V Include  the  graphics  Horary  for  the  vector  General 

graph i cs  device. 


Whenever  a graphics  library  is  included  for  loading 
with  the  compiled  source  program,  the  stangard  C liprarv  is 
appended  to  the  loader  library  list.  Other  arguments  are 
taxen  to  be  either  C compatible  object  orcorams,  typically 
produced  by  an  earlier  C compilation,  or  perhaps  libraries 
of  Basic  or  C compatible  routines.  These  orcorams,  together 
with  the  results  of  any  specified  compilation,  are  loaded 
(in  the  order  given)  to  produce  an  executable  program  with 
the  name  a. out.  Libraries  with  the  same  file  name  as  t'e 
source  program,  and  which  end  in  '.o',  should  not  be  uses 
since  they  will  not  be  retained  unon  creation  of  file.o  rv 
the  executive  program, 

Basic  programs  may  not  be  comoi led  for  future  use  as 
libraries  since  every  compHHd  Basic  program  includes  a 
"'na  i n"  section,  which  drives  the  program.  Thus  additional 


libraries  rrav  be  created  in  the  C larquaae»  connpileb  usi'^q 
the  “C  oDtion  for  output  as  '.o'  files#  3 no  then  inclunea  in 
the  '.o'  for'!’  as  object  libraries  for  the  Basic  loaner  l^). 

If  the  “o  option  is  exercised#  the  subsequent  file.o 
rrav  be  invoked  by  LBAX  and  .#ill  return  an  executable  a. out 
file.  The  effect  of  tne  -o  option  is  to  proouce  the  source 
prograiT’  in  object  cooe#  which  is  fully  loadable.  Caution 
should  be  exercised  to  prevent  usage  of  a -o  option  output 
as  a library  file. 

In  addition  to  the  features  supported  in  stanoarn 
Basic#  a number  of  special  features  are  founo  in  the  bPS 
version  of  extended  Basic.  These  include: 

call  References  an  ext^rnallyy  definen  C lancuace 

procedure  or  function. 

chr5  Return  a character  strinq  of  lenoth  1 neter'^ineo 

by  the  ASCII  equivalent  of  an  expression  arou- 
men  t . 

close  Causes  the  externally  referenced  file  to  be 

closed. 

col  Specifies  column  wio^h  of  suosecuentlv  printed 

numeric  values. 

dim  In  addition  to  numeric  arrays#  permits  creation 

of  a vector  of  strinqs. 

extern  Declares  type  and  arguments  of  external  pro- 

cedure or  function  referenced  by  a call  state- 
ment . 

1 en  Returns  the  lenoth  of  a strinq  expression, 

mod  Evaluates  an  expression  with  modulo  arithmetic, 

ooen  Causes  the  externally  referenced  file  to  oe 

opened  ana  indicates  the  '^oce  for  ocening  tno 

file. 

reaa  file  Reads  seouentially  frc"  too  specified  external 

file. 

val  Converts  a strino  of  numbers  to  a floatinq  point 

numbe  r . 

write  file  -Vrite  sequentially  into  the  scecifi»a  external 

file. 

Strinq  manipulation  is  enhanced  by  use  of  sunstrinqinq 
constructs.  Strinos  may  he  refenred  to  in  an  Aiool-lixe 
manner  to  produce  portions  for  readinq,  writing#  or  altera- 
t i on  . 

Since  the  U^'IX  environment  does  not  support  some  of  tne 
features  of  standard  Basic  without  considerable  system  over- 
heacj  (and  in  some  cases#  not  at  all)#  the  NPS  version  of  ex- 
tended Basic  uses  slightly  different#  although  no  less 
specific#  formats  in  some  statement  formations. 


V P r - 

1 i ne 


Imoortantly/  the  MPS  extended  Basic  is  a comoiler 
sion,  and  is  not  i n t e ro p e t i v e . Thus»  the  use  ot 

numbers  with  every  statement  is  not  mandatory  or  recommeno- 
ed.  Creation  and  subsequent  editinq  of  oroqrams 
by  use  of  the  UNIX  editor.  Execution  of  the 
comolished  through  the  a. out  file» 

D i 1 e r s . 


a s 


I i t h 


is  effected 
orogram  is  ac- 
other  UNIX  com- 


Ihe  files  which  are  used  by  the  system  whi 
the  shell  executive  rrogram  are: 


executing 


f i 1 e . b 
f i 1 e . o 
f i 1 e . s 
a • ou  t 

/usr/basic/baxcomc 
/usr/basic/oasicl io.a 
/usr/qraoh/coni e.a 
/usr/graoh/ rmt  xsuo .o 
/usr/qraoh/moresub.o 
/us  r /qraoh /vq , a 
/usr/1 io/1 ibt .a 
/I  i 0/ 1 i be  . a 
/I i 0/ 1 i oa  . a 


input  file 
object  file 

assemb 1 y- 1 anquaoe  outout 

1 oaded  outout 

c omo i 1 e r 

9as i C 1 i brary 

Oc onoo r aoh i c S library 

l^aMTE^  library,  cart  I 

RAvTEh  library,  oart  II 

Vector  General  library 

Tetxtronics  library 

C liorary;  see  section  III 

Assembler  library  used  by  some 

routines  in  libc.3  and  t'asicliOc 


The  diagnostics  produced  by  Basic  itself  are  intenoeo 
to  be  self  exolanatory,  GccasionaMv  -essages  may  be  cro- 
duced  by  the  assembler  or  loaaer.  Of  these  the  most  mysti- 
fying are  from  the  assembler,  in  particular  "m",  which  means 
a multiple-defined  external  symcol  (function  or  oata). 


1 IS 


PROGRAM  LISTING 


extended  basic  CO'^PILER 


1 

parsing  rules  i 


XI 

« incluae  "./bstruc.c" 
a incluae  "./bfun.c" 

itoken  STEP  DATA  DtF  DIM  ELSE  END  FOR  GUSUri  GO  TO  GOTO  IF 
%token  NEXT  ON  PRINT  READ  RE"^  RESTORE  RETuRN  STOP  THEN  TP 
% token  OPEN  CLOSE  SUB  RA'jDOMIZE  relsoec  OR  X(jR  ''iPT  AND 
%token  number  numeric*-id  a r r av*-  i d strinq*-ia  ^unction«-io 
%tok«n  n ume  r i c H f o r « a t strina  strino«-bif  nuneric«-bit 
XtOken  simcle*-format  Str<-num«-pif 
%token  EXTERN  TYPE  INPUT  LET  CALL 


X 1 e f t ' F ' ' - ' 

%left  ' ' 

%left  't' 

ZX  /*  beainninq  oT  the  rules  section  */ 
Drogram:  s t a t emen  t *- 1 i s f ena*- s t a t emen  t 

? 

s t a t emen  t H 1 i s t ! s i mo  1 e*- s t a t emen  t 

{ s t a t emen  t *- 1 1 s t s i mq  1 e^-s  t a t emen  t 


ena*-statement;  statementelabel  E'jC  '0 
I END  '0 


s i mo  1 e«-s  t a t e’^en  t s s t a t emen  t ♦- 1 abe  1 execF-state  '0 

I s t a t emen  t ♦- 1 abe  1 i t ♦- s t a t emen  t *0 

! s t a t emen  t <- 1 ace  1 da  t a*-s  t a t emen  t 'o 

1 statement*-labe1  def*-statement  *0 
! s t a t emen  t «- 1 abe  1 r em«- s t a t emen  t '0 

! s t a t e men  t ♦- 1 ab  e 1 e * t e r n«-s  t a t emen  t '0 

I To  restatement 
1 d i me s t a t emen  t 
I execestate  *0 
1 ifestatement  '0 
! da t ae s t a t erne n t '0 

1 defestatemont'O 


1 1 b 


re'T'*-s  t a f p'^en  t '0 
e X t »?  rn«- s t a t emen  t '0 
error  '0 
' 0 


exec»-state 


^or«-statement: 


rea'ix-staterr.ent 
restore*-statement 
ooenest  at  ement 
close«-stat  emen  t 
input«-state'’'ent 
rear)f<-stat  e'ren  t 
or  i ntestatefnent 
■eri  te*-statement 
stoD«-statement 
on<-st  ate'T’eot 

brancrvstate'^ent 
let«-statement 
cat  )«-statement 

s t a t e<^en  t »- 1 aoe  1 for*-clause  s t a t e-^en  t ♦- 1 i s t 
next«-c1ause  = { secant  ( ^ 1 / 52  ) ; } 

for«-c1ause  s t a t emen  t ♦- ] i s t next*-clause  = 
{se’nant(‘41,51);> 


statement«-lar)el  : 


n u 'T  h e r = 

< s e -Ti  3 n t ( 1 » 5 1 ) ; 

if  ( numOe r s ( $ 1 ) . u se  !=  1) 

nuTDe r s 5 1 1 . use  = 2 ; > 


1 aDe  t I nuwbe r = 

< semantC^O**.!);  if  (rijmoerstSlt.us®  ==  0) 
nuTice  r s t S 1 ] . use  = 1 ; > 


for«-clause;  for«-heao  '0  = 

{ 55=forctr;  se""an  t ( 3b  , 5 1 ) » } 
! for«-hea<l  STEP  nu-neric^'exo  '0 

< 55=forcfr;  se'^ao  r ( 4 0 , 5 1 ) ; > 


f or«-heaa: 

f 

ne  X t <-c  1 ause  : 

I 

I 

I 

I 

I 

I 

f 

f O r ♦-  i n i t : 


F Ob  for«-init  TO 

State'^ent*-!  abet 
fJEXT  nyr'ericeib 
NEXT  '0 
state-renteiabel 


nureric^exD 

NEXT  numeric^-ib 

' 0 

NEXT  *0 


= { 


' 0 


5 5 = 2 ; } 


nyneric*-ib  ' = ' r i c e X r> 

{ S5  = 5i;  se'nan  t ( 3fl  / 5 1 ) ; > 


1 1 7 


a i 'T«-s  r a t emen  t : soifrereacj  'o 

t o i mehead  '0 


I 


d i T«-head : 


) ’ 


di'T>*-sarrav«-*'ead  numbe'' 

{ sv^tablelMl.amt  = 

(nuinDers  Ci2]  .numberi  tl  ) * 

s v'T’ t ab  1 e [ S 1 ] . 1 ena  t n + I ; > 

! di'r«-bead*-alob(jmt)er  ')'  = 

( i=doceDt+  + ; aooe  [j  ] =numbers  (S2)  .nu'i'beri  ; 
sy'rtaoletBl)  .diT'en  + + ; 

caldope(fl»sv'^tab'e(5n  .di^ienfayiitablefSIi  .doDvJ;  > 


d i m«-head : 


c)im«-head*-slo  nu"nb“r'3'  = (?S  = $l; 
sv"dtable{511  .1enqth=numbefs[S«?J  .nu^^beri;} 


dim«-sarray«-bead; 


sd  i •^«-head  ' ( 


{ $S  = ?i;  5y"tab)efil].tyre  = 3; 
s y m t ab  1 e [ ? 1 1 . o i '^en  = 1 ; > 


d i 'T' «- h e a d «- 1 p : 


d i 'T'<-heaa*-s  1 D : 

« 

di  n*-beaa«'a  I p : 


data^-neadi 


da  t 3*-’n  i nu  s : 

/ 

de  ♦‘-statement 


de  f e ) e f t eoa  r t 


s t a t emen t 1 abe  1 DI' 

DIM 

sd  i -n^-head  ' » ' 
a i m ♦-  h e a d ' » ' 


dim^-headelD  Strinq^-id 


( 


i 53=3^;} 


:0  ; 


a i mehead*- ) c numeniceib 
I 5‘5  = 'S2;  sy'T'tablelf^J.d’men: 
syi^tablelS?)  .tyoe=l? 
symtableC321 . pop v =dopep t ; > 
dimehead^-alo  number  ' r ' = 

{ S3  = 'fl;  symtable(?l).aimen+t; 
j =aooer  t ^ f dorefjj  =numbers  15^)  .numceri  ; > 


data«-stat  er>en  t 


data<-bead  number  = 

( da t a ( da t ao t + + 1 = numbers  I it;]  . number  f ; ) 
dataem^nus  number  = { dat a (dat act  ♦ + ] = 
-numbers  (521  .numcerf;  > 
n.ata<-head  strino  = 

( strcopy(stia»datastorl; 
datastcr=+  sfiqWi;  > 


DATA 

data^-head  number 
numbers(S2]  .numberf;} 
data^-minus  number 
-numbers  (521  .numbert ; > 
data«-bead  string 
(strcocyCstiq/datastpr) 


- {qata(oatapt++]= 

= ( data(aatapt++)= 


datastpr  = + st  iql  ■♦•1  / > 


dataebead 


' — ' 


de  ♦ e 1 p f r «-na  r r ' = 
<semant(57,il);3 


numeric‘-e*P 


OEF  defehead  numeric*-id  ')' 
( semant  (35, J2);  5 5=  52  ; 


I I P 


semant ( 56 » 52  ) ; de^v  = 0;  > 


def«-head:  function^-id  '('  = { 55  = 51; 

symtablelSl)  .di-^en  = 0;> 

1 det«-head  nij'r'eric«-id  { 55  = 51; 

symtablelSll .1enqth=52; 
symtabletSlJ  .dinnen  + + ;> 

; 

re  ad*-s  t a t e'T'0'^  t ; read«-head  nurie  r i c ♦- r e f = 

{ senan  t ( 33  f - 1)  ; > 

1 read«-head  strinq^-ref  = 

( secant ( Su , - 1 ) ; > 

t 

read«-head:  READ 

! read<-6ead  ngmer  i c<re  f = 

1 s ennan  t ( 3 3 » - 1 ) ; > 

1 read«-head  string«-rof  r 

{ senantC^Uf-l);  } 

9 

res  t o re«-s  t a t eo'en  t ; RESTORE  = 

{ se'T'ant(32,-l);l 
: RANDOviIZE  = 

{ se'Tian  t ( 55  » - 1 ) ; 1 

[ RArjOO*^IZE  ' ( ' nu<^eric*-exc  ')' 

{ semant (55/13);  ) 

9 

open<-statement;  ooen^-head  nu'^ber  ')'  string 

{ senant(51/52);) 

9 

open<-head:  OPE^M  '('  nw^cer  ' , ' = 

{ j =nuiT'be  r s [ 5 3 ) . nu-rbe  r i ; tasljl  = i; 
se'nant(50/S3);> 


closed-statement:  CLOSE  '('  number  ')’ 

{ j =numb e r s ( 5 3 1 . numc e r i ; 
i f ( frts  [ j ) ==  0}  f-s  ( i 1 = 2; 

semant (52/  5 3)  ; } 

9 

inputd-statement;  inputd-head  numericd-re(  = 

( semant('Jfl/-l);  > 

I iPDutd-heab  strirgd-nef  = 

{ semant('19/-l);  > 


inoutd-heaq:  I^^PIJT 

! inputd-head  strinad-exp 

( semant ( « 5 / - 1 ) ; 
stiql=0;  stig(stidl+t]='  '; 
stiq(stiqn='(l';  semant(iy/j); 
semant('t3/-l);> 

! inoutd-head  numericd-re5  ' , ' 

( semant(48/-1);  > 

! inoutd-nead  strinq«-ppf 

( semant(y'^/-l);  ) 


1 1 o 


b 


» . /•*  • «>  ■ 


.d 


readf^-state-nent  ; 


: readf*-heaa  nu'^'e  r i c rg  f = 

{ sen>an  t ( 69  , - 1 ) ; sef^anf(71 
readf«-head  stcinq*-p?f  = 

( seTian  t ( 7 0 , - 1 ) ; se'^ant  ( 7 1 » - 1 ) 


reaaf«-head: 


read«-  ^ i I e 

readf<-head  nu^eric^-re^  '» 
seTiant  ( * - 1 ) ; > 

peadf*-head  stPinq<-ref 
{ serrant(70,-l);  } 


reaa«-  f i 1 e ; 


9EAD 


number 


n u Te  r 1 c f 


< j=numbeps  [S3]  .nufTberi  ! 
if(fds[jl  ==  0)  fds[j]  = 
semant ( o8 , 3 1 ) ! ) 

READ  's'  nupiber  '»' 

{ jsnurr'oers  [531  .numbepi  « 
if(fds[j)  ==  0]  fds(j]  = 
sep'ant(b3»S3);  > 


DPint^-statement 


PRINT 

[ semant(U4f-l);> 

OPint<"6ead  nuffepi'c^-exp 
{ semaPt  sep'ant(4U| 

DPint<'head  stpipq^-exD 
{ semant(y3»-l)?  secant  (99, 

DPint*"bPad  < o P nn  a t ♦-e  1 e rr  en  t 
( seman  t ( 99 , - 1 ) ; I 

crint*-head  f o pp3  t *-e  ) e”"  e '' t 
DPint«-head  Plop's  p i c ♦■e  x n ';' 

{ secant  (92,-1);  > 

DPint*-6ead  stpinq*-exD  ';* 

< semant(93,-l);  } 


DPI  nt«-bead; 


ipi  te*-statfffrent 


w p i t e«-6  eaa ; 


PRINT 

opint^"6sad  PI  upie  p i c ♦■e  X D ','  = 

{ sepiant  (92,-1);) 

opint«-6ead  stPipiq<-exD  ',’  = 

{seTiant(93,-l);) 

DPiPt*"hsad  f o pp  a t *-e  1 spiep  t ',' 
DPint*-head  nupepic«-exD  ';'  = 

[ semapit  (92,-1);  seman  t ( 9 a , - 1 ) ; > 

DPint«-head  stping*-exD  ';'  = 

{ sepiapit(93,-l);  sspart  (99,-1);) 
ppint«-head  f o p^a  t ♦■e  1 e^sp  t ';' 

: wPite*’6ea6  nopppicpsxc  = 

( sepiant(72,-l);  sepant(79,-l);  ) 
wpits«-head  stPipq*-exD  = 

( sep'ant(73,-l);  sepant(’9,-l);  ) 

w p i t p <-  f i 1 a 

wPita^-bead  nupepic«-pxn  ','  = 
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{ semant(72,-l);  } 
write‘-head  “string^-exp 
{ seman  t ( 7 3 » - 1 ) ; ) 


write^file;  PRI’‘1T  's'  nu"’Cer  numepic<"e*p 

{ j=numt)ers  (53]  .nurrberi  ; 
if(fds(j]  ==  0)  fdslj)  = Z', 
semant(75»S3);  > 

! P»INT  '3'  numoer  = 

< j=numbers (531  .numberi  ; 
i M f ds  ( j 1 ==  0)  tds ( j 1 = 2; 

seman  t(75»53');  > 

/ 

format^'ele'T'ent:  si'PDle*-foP'*'at  = 

( SerrantCB2»-l);  > 

! f o r -"a  t *- 1 e ^ t *-P3  r t nuTipp  i c«-exn 

(seP’ant(53»Sl);  > 

? 

f o pm  a t •- 1 e f t <-Da  p t ; num  e p ( c ^ o pma  t '('  = 

( 55  = 51  ; } 

? 

i f <-s  t a t e"'en  t : if*-clause  exec«-state  = 

( seman  t ( 28  » - 1 ) ; } 

I ifeclause  elseeplause  execestare 
{ semant (29,-1);  > 

I ifeclause  elseeplause  i f »-st  at  eme^t 
I ifeheac  qotn  nymppp  = 

{ semant(50,S5);) 

! ifeclause  numnep  = 

{ senant(lb,-l);  senant(3i''>52);i 
! ifeclause  elseeplause  numcep 

( semant(lb,-l);  semant(30,53);] 


e 1 seep  1 ause ; 


i f ep 1 ause  : 
/ 

i f «-h  ead  : 


exec«-srate  ELSE  = 

{ semant(31,-l);> 
numbep  ELSE  = 

{ seman  r ( 1 6 , - 1 ) ; se""an  t f 30  , S 1 ) ; ] 

ifehead  THE\ 

IF  pe I eexo  = 

( seman t(27,-l);> 

IF  END  '3'  nuT,  hep 


pel^exp;  pel*-exo  <0R  pel^'tepm 

< semant( 56,-1);  } 

I pelepxD  CP  rpletepm 

( seman  t ( 5 7 , - 1 ) ; } 

I pe 1 et  epm 


peletepm:  peletepm  a^l0  releopi^apy 

( semant(58,-l);  ) 
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1 


re  1 '■pp  i rra  r y 


re  1 <-pr  i mary  : 


nurre  r i c *~e  X P rel  nu're  r i c*-e  * p 
i semant  { 25 , 12)  i > 
strinq«-exp  rel  strinq<-exp 
{ semantC?b,$2);  > 

' ( ' re  1 «-exn  ' ) ' 

^JOT  •('  rel«-exp  = 

{ senant  ( S9 , - ! ) ; } 


* = * 

= { 

3$  = 0;  > 

* • 

t • 1 

= { 

II 

' > * 

= ( 

ss  = fl; ) 

* < * 

= ( 

5 5=12; } 

• < • 

1 * 1 

= ( 

5 5 = 1 b ; > 

* > ' 

1 » 

= < 

55  = 20;  > 

* < * 

* > • 

= { 

55  = «;  > 

• * 

1 ^ 1 

= ( 

5 5 = a ; ) 

re  1 

soec 

= ( 

II 

s t oP*-s  t a t e^en  t 


STOP  = 

{ seTar't(?a,-l);> 


rer'^'State'T'ent  : 


on«-state'T'ent  : 


on«-beaa  1 ate  1 
{ semantC23»-l);> 


onehead ; 


onebeq i n 

oneheac  lapel  ' , ' 
{ seriantC??/-!);} 


onefcea i n 


0‘l  numericeexp  cn»-caseesel 
{ se'rant  (21,0);} 

ON  nu"'ericeexp  or<"Selector 
(semantf^l,-!);) 


one  se lector 


Then 
GOTO 
GO  TO 


onec  aseese 1 


GOSUB 
GO  SUB 


branchestate'rent 


oos'jR  1 abe  1 
qoto 1 1 ate  1 

RETUPN  = 

{ SP'rantClS,-!);) 


1 22 


qosun 


r 


1 


GOSU^  = 

{ sema^t ( 1 7 , - 1 ) ; > 
GO  S )fi  = 

{ s e a n t ( I 7 , - 1 ) ; > 


qo  t o 1 : goto 
goto 


GOTO  = 

( semantClbf-lTJT 
GO  TO  = 

{ se'T'ant(l6f-l)T> 


1 e t ♦- s t a t err  en  t : strinq«-1et 

I nu'reric*"let 


s t r i nq«- 1 e t 


LET  strinq«-re'^ 


St  ri  rig«-exD 


{ se'narrf(15>-l);} 

strina«-peT  ' = ' strina*-exn 
{ semant(15»-l);} 


s t r i ng<-e  x o : 


strina<-peT 
string  - 

{ senartCly^i);  > 

S t r^-nu'r'-t)  i T n u r' e r i c <■  e x c 

{serranr(53»Sl);  > 


’ ) ' 


numeric«-let: 


nu.Teri  c**exc 


let  nume  r i c*"  re  T ' 

{ se'’'ant(13»-l);} 
numeric«-reT  ' = ' n ufre  r i c ♦■e  x o 
{ semari  t ( 1 3 / - 1 ) ; } 


nurieric<-exD; 


t e r “n 


t e r •T' 


< se'T'ant(‘^f”3);> 


numeric«‘exo 


tern 


{ se'nant(10f-‘J);> 
' t ' t e r n - 

< senant(ll/'-l);T 
'-'tern  = 

{secant ( 1^,-1 ) i ) 


term: 


D r 1 ma  r y 

term  '*'  orimarv 
{ semant(7,-l);> 
term  '/'  orimary 
{ seman  t (8^-2);} 


D r 1 m a r y : 


orimaryeolement 

orimary  'T'  o r i m a r y ►e  1 e m e r' t 

< semant ( ft  » - 1 ) ; > 


o r 1 1 


numeri  C<"ref 
nurroe  r = 

{semant(3fJil)T  nymberst^lJ.luse^lT  > 


1?3 


J 


nu'T'eri  c*-ref 


b i f 

'('  numeric*-exp  ') 
func*-re^  - 

<semant(l,Jl);) 

numeric^-id  = 

{ semantCWSl);} 


{ seTiant(2»M);> 

f 

arrav«-reM  a r r a v*"  r e f <- h e a d nu’ne  r i c«-«»  xo  ')'  = 

{ j=dfunanldD  + unai 1+1;  seHian+CaS^S^l; 

(j  i=  syrntable(^ll.dimen) 
erPorCs'/rrtahlelSl)  .sv^ibol  >'T'sq(bl  ) ! 1 
7 

a r p a y +■  r e ^ h e aa  : appay«-id  '('  = 

< s e a n t ( 1 / 5 1 ) ; 

5S  = $l;  d f un  a p [ + + dc  ^ u pt  a p ) = 0 ; 1 

! appay<-pef+-nead  nu'T'epic+-pxr  = 

{ = d^unap[dDfupiap)+  + ; 

sep'api  t ( / 5 2 ) ; > 


stpipg+'ppf:  stpinq+-id  = 

< s e m a PI  t ( 6 » 5 1 ) ; } 

1 s ubs  t p i nq+-  ref 

I s a p pay <-sub s t «- pe  f 

f 

S t P i ng«- r e f «- 1 D : stpipiq+-id  = 

{ semart('4b»Sl);  > 

substPiPiq<-pef:  stPinq4-rpf+-lo  substPipq<-SDec 


s f p 1 nq+- a p 1 


sappay«-i 


s t p i piq+- pe  f 1 D nume  p i c +■  *?  X o ')' 

< if  (symtableCJll.tyDe  1=  5) 
eppopfsy"ntable[?l)  .symbol  / msq[8]  ) i 
seirantCbO/-]);  > 

s a p p a y ♦- s ub s t <- 1 D sues  t p i pq<"SDec 


s a p p a y ♦- sub  s t <- 1 D : s t p i piq+-a  p pay  ♦- pe  f '( 


sub s t p i m«- spec  : 


nup'epic+'exp  ' I ' nupieric+’exe  ' 1 
{ semant(blf-l);  } 


st  p i nq«-b  i f ♦■re  f stPinq<-exD  = 

i if  (dfunap[dpfupiap--l+l  1=  sy'^fable[$l).n’'pen) 

i 

ePPorCsyiTtableltll  .symbol  »msq(b)  ); 

1 

semant(53»51);  } 

num  e p i c *-b  i f ♦"  re  f numeric+'exc  = 

< if  (dfunap(doftjnar--l+l  1=  s/"’tac1e[51J.dimep) 

< 


error(sy(rtab)e[Sll  .sy^bol^msoroJ  ); 

> 

{sefnant(S3»Sl);  > 

1 nume  r i c '■b  i ^ no  a r m 

f 

s t r i nq«-D  i f «- re  f ; strinavbi^  '('  = 

< SS  = 51;  d f una r [ ♦ +dD f una r ] = 0 ; > 

1 s t r i nq«-b  i ♦ r e f srring«-ref  '»'  = 

( 5 5 = 51  ;df<jnar(  do  funar]++;> 

f 

nurie  r i c«-b  i f ♦- re  f : nuirer  i c*‘b  i f = 

{ 55  = 5i;  d ^ una r ( t tap ^ un a r 1 = 0 ; > ( 

nu'ne  r 1 c t-b  i ^ r e f ; nurre  r i c<-D  i f '('  = j 

{55=Sl;dfunar(ap^unar]tt;  } [ 

/ 

nu Tie r i c t-b  i f t-no a r T ; rvuirer  i c*‘b  i ^ = 

<se'^ant(55,51);  > 

func^ref*;  func«-ref«-neaanumeric<'e*p  ')'  = ' 

{ if  ( d f un  a r ( ap  f uria  r- - 1 1 1 ;=  i 

syTitabletSl)  .diTien) 

{ 

error(sYCitablet511  .syTfcol  fTisglbl  )» 

> 

seman  t ( 3>4  » 5 n ; } 

f unc  r e f <- h e ad : f unc  t i or*- i d 'C'  = 

{ 55  = 51;  a f un a p C + +do f un a r ) = 0 ; > 

1 f unc  r e ^ b e a a nune  r i c*"e  * o = 

{ a f una r ( dp t un a r 1 + + ; 55  = 5l;> 


c a 1 1 «-s  t a t emen  t : callt-head  = 

< seT'ant(6b,51);  } 

1 callt-nhead  = 

{ seTiantC66,51);  > 

1 callt-nead  nune  r i c t-e  xp  ')'  = 

( oncnt+t;  semant(63»51-oncnt);  55=51; 
semant(b&»51);  > 

1 ca)l<-Pead  arrayt-id  = 

{ oncrt+t;  senan t ( b 3 ^ 5 1 -one n t ) ; 55  = 51; 

se-iant(bbfSl);  } 

1 callt-head  strinq«-exp  = 

{ oncnt  + t;  secant (b3 I $ 1 -onent ) ; 5S  = 5i; 
semant(bb>51);  > 

! call«-head  numerict-id  = 

( oncnt+  + ; seT<an  t ( 6 3 » 5 1 -one  n t ) ; 55  = 51; 

seir  an  t ( bb  f 5 n ; > 


call+'bead;  ca11*-nhead  = 

( seTiant(b'-*»-ll;  seTiant(b3»51);  55  = Si;  ) 

! ca11*-nheaa  ' = ' nurier)C*-id  '('  = 

{ senant(l»53);  seT'ant(b3»5  3);  5i  =53;  ) 

! callt-shead  ' = ’ nuirerict-id  '('  = 


1 ?5 


< se'^an  t ( 1 » 5 5 ) ; se^Tian  t f b 5 » f 3 ) ; 
call*-beaD  nuTier  i c^-exo 

{ oncnt>-  + ; sei^an  t ( b 3 > I 1 -one  n t ) ; 
can«-hea<1  aprav«-ib  = 

< oncnt*-  + ; seman  t ( b 3 » 5 1 -one  n t ) ; 
s t r i nq«-e  xo  ' , ' 

spmant:  (b3»  i 1 -onent  ) i 
' nunnepic«-id  '/' 
se'T'ant  (63  / £l-onent  ) ; 


e a 1 1 ♦-  h ead 
{ oncnt++; 
eat  1 «-heaa 
■'  ( oncnt+'  + I 


II  - 33; 
33  = 31  ; 
$5=51; 
$5=51; 

5 5 = 5 1 ; 


eat  1 *-nh  e aa  : 


CALL  numeric*"id 
secant ( 1 / $2 ) ; $5  = 52;  1 


cal  l*-sneaa: 


call  string*- P6  + 
{ setian  t ( b7  / - 1 ) ; 1 


fment;  extern*-beaa 


extern*-hea'.i: 


EXTE^''i  TtPE  nu"'erie«-id  oarT,  «-oef  = 

{ s vfT  t ab  1 e I 5 3 ] . t eno  t h = 5 2 * 2 ; 
sy’T)taDle(53]  .dir-en  = onent;  £5  = 5 2*2; 
s y m t at"  1 e ( 5 3 1 . t y r e = 10;  onent=n;  ) 

EXTERN  nu'"eric*-id  carm*-def  = 

{ s y n t ah  1 e [ B 2 ] . 1 <?nc  t h = 0 ; 
symtable(£2]  .dimen  = onent;  5 5 = 0; 
sy^t abl ® 1521  . t yno  = 10;  cnert=0;  } 
EXTER^J  'i<r'  TYPE  numerie‘‘id  oarT^-ieT 
( svmtabt  e (5‘Jl  . tenath  = 53*2  + C0ISP; 
symtabtetB^l  .di"en  = onent;  $5  = 53*2*CCISP; 
sy  m t ab  1 e ( 5‘J  1 . t voe  = 10;  onent  = 0;  1 

e X t e r n*- h e ad  '/'  nuneric*'id  DarTZ-deY  = 

{ s y m t ao 1 e ( 5 3 1 . 1 eng t n = 5 1 ; 

sywtable(531.diTen=oncnt;  $$=$i;  onent=0 
symtaDleCBSl.tyce  = 10;  ) 


pa  rrr*-ae  f 


( 


’ ) 

oarm«-head 
{ 


Type  ' ) ' 

. onent+t;  j = i nsert  ("♦-♦■"  1 ; 
syntablalj] .1ength=*2*2; 

- tyoe=  -1  ; } 


synt  ao 1 e ( i 1 
Darm«-head 
( o n e n t t + ; 


TYPE 


\ onenr^T.  j=insert( 
symtable(j) .lenqtH=$3*2*C0ISP; 
symt ao 1 e I j 1 . t voe=  -1;  1 


Dar'T>«-head ; 


' ( • 

oarf^head 


TYPE 


12b 


M 


{ oncnt  + + » j=insert( 
sv^table(j)  = 

s v"it  ab  1 e ( j ] . t yoe=  -1»  ) 

oarm^-nead  'iSi'  TYl^E 
( oncnt  + '*’?  j=iosert( 
svwtabletj)  .lenqtfi  = ^3*2  + CDISP; 
symt  ab  1 e ( j 1 . t yce=  *•  1 J > 


V y 

f*  ** 

^include  "./bscan.c" 


SE^MNTIC  aCTIOi'S 


seman t ( c a » 1 ) int  ca>i; 
{ int  k » k 1 ; 

switch  ( c a ) 

{ 


case  1 : 
case  ? : 


case  5 : 
case  6 : 


case  7 ; 


case 


case  ^ : 


OPirt^("'nov  £S/Cd»”(ry)\n",i);  return; 
j=svntab)e(i]  .tvce? 
if  ( j ==  0) 

error(syrntable(i)  .symbol  »msci[5j  ); 
Drintf(".alobl  DOPCALNn"); 
Drintf("'nov  S SO  ^ d » - ( r U ) \ n " ) ; 
orintf("isr  cc»OOPCAL\n",i); 
return; 

orintf("mov  5'i%(:f»-(ra)\n'',i);  return; 
orintf(’*r'Ov^  *(ril)+-,frl\n"); 
orintf("novf  *(rU)+’,frO\n"}/ 
Drintf(".a1cbl  oow\n''); 
orintf("jsr  cc»Dow\n"); 
j = t emoc  n t t + % 20  ; 
orintf("mov  {T%d*-(ra)\n",j); 
Drintf("novf  frO,*(rU)\n"); 

return; 

j=tenccnt-*-+  % 20; 
orintf("'"Ovf  *(rc;)t,frl\p"); 

□ rintf("rnov^  *(r4)  + »fr0\n")* 
Drintf("'T'ulf  frl,fr0\n"); 
printf  C"tiov  £T%f1,-(r4)\n",  j ); 
DrintfC''moyf  fr0,*fr4)\n"); 
return; 

J=temncntt+  X 20; 

Drintf('''rovf  *(r4)t,frl\n"); 
orint'f(''novf  *(rU)  + ,fr0\n"); 
orintf(".alob1  FRR0®\n"); 

Drintf("cr'Df  i0,frl\n"); 
orintf("cfcc\nbne  2^\n"); 
orintf("jsr  rS,ERRCR\n"); 
Drintf("<runtime  error  atte'^oted"); 
orintf("aivision  by  zero\\n\\0>"^; 
orintfC";  ,evenSn2:Vn"); 
orintf("diyf  tp],frO\r"); 
orintf("nov  ST'4d»-(rU)\n",  j ); 
orintfC  "nnyf  fr0,*(r4)\n"); 
return; 

j=te'T'Dcnti’+  X 20; 
orintf("-nov^  *(rU)t,frl\n"); 
orintf("novf  *(ra)+,fr0\n"); 
orintfC "adnf  frljfrOVr"); 
orintfC '’-"oy  5T'/.af-Cra)\n",  j ); 
orintf(''>rovf  frO,*(pa)Vn"); 
return; 


case  10:  j=te'rocntt+  X 20; 

orintfC^^Oyf  ♦Cr4)+,frl\n"); 
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DriotM'Vovf  *(rU)  + ,frO\n"); 
DrintM"suPf  frl/frO\n"); 
orintM”^Ov  $T';d/-(r'4)\n”,j); 
orintf('*TOvf  frO,*(rU)\n‘')» 
return; 

: j : t e^”DC  n t + ♦ X ?.0t 

orintt  ("tpovf  ♦(ril)  + »frO\n")» 

Drintf  ("absf  frO\n"); 
printf(""'ov  5T%rlf-(r'4)\n",  j ); 
printf("'rovf  rO,*(rUl\n"); 
return; 

; j=renpcnt  + + X.  20 ! 

printf("'T'OV^  *(ra)t,frO\nneq'f  frO\n"); 
printM"'rov  ST%d,-(ra)\n"»  j ); 
print'f('''^Ov^  r0f*(p4)\n"); 
return; 

; crintff"Tovf  *(r4)t,fr0\n"); 
print^("’^ovf  fr0»*(r4)t\n"); 
return; 

I printf("'^Ov  ?lf»“(r4)\npr  2^\n"); 

orintfC"!:  <%s\\0>\n.even\r",stiq); 

ntf("2:  'Tov  S*'ic»“(rU)\n",stigl); 
r e t u r n ; 

I printf(".qlob)  Str-v\n"); 
printf(''jsr  oc»Strmv\n"); 
return; 

printf("i'^n  ");  return; 
printf("jsr  DC i ") i return; 
printf("rts  cc\n"); 
return; 

; j=numcers  [i)  .nurineri  ; 

Drintff"\nL%q:\n",j);  return; 

: j=nu'roers  [il  .nu'T'Oeri  ; 

printf("L%q\n",j);  return; 

; one  nt  =0 ; 

printM"’T'Cv^  *(r4)+,fr<J\n"); 
Rrintf("r'Ovfi  tr0*r3\n"); 
crinff("oec  rSNne^p  ■50,r5\n"); 
printf("jqt  5f\n"); 
crintt("j7'p  hf\n7:  as)  r3\n"); 

If  ( i'  ==  - 1 ) 

rrintf("j*P  *yf(r3)Nn"); 
else  { 

printf(’’jsr  oc»*bf(r3)\n"); 
printf("j'^p  5f\n");  } 

printf(”\n?:\n"); 
r e t u r n ; 

I onent+t;  return; 

: crintf("\n6;  c^n  5’4d»r5\n",oncnt); 
print fl”bqe  7o\nS;\n"); 
r e t u r n ; 

; printf("jTio  Er’NiDti^Xn"); 
r e t u rn  ; 

I printf("movf  *(r4)*,fr0\n")» 


r 


case  2o: 


case  ?7 : 

case  ?8  : 
case  29 : 
case  50 : 

case  31: 
case  32 ; 

case  53  : 

case  3a: 
case  35 : 

case  3b : 


case  37  : 


case  38  : 
case  39 ; 


print f("movf  *(rU)t/frl\n")! 
crintf("'Tiov 

Drintf(''c'^r'f  fr),frO\n"); 
DrintfC"cfcc\n''); 

OP  i nt  M " ,q1  ob  I C Q'^P  A \ n " ) ; 
Drintf("jsr  oc»C0'''PA«\n"); 
return; 

crintt(".nlobl  strc"^D\n"); 
orintf("jsr  OC»Strcrno\n"); 
Drintf("rnr)v  ?%0»r5\n",i); 
orintf("c'T'c  ?0,(r4)+\n"); 
or  i nt  t ( " .q  t Cb  1 CO^-*PAR\n  " ) ; 
orintf("jsr  pc»CC'''PAR\n"}; 
r e t u r r ; 

Drintf("tst  Cr'4)+\nbea  4f\n"); 
re  t u r n ; 

Drintf("\na:\n");  return; 
crinttf"\n°:\n'');  return; 
j=nuTiDers  (i  1 . number!  ; 
orint  f ("L%d\n\n4:\n'',  j ) ; 
return; 

Drintt("JmD  9f\n\n4:\n"j;  return; 
orintf("mov  S0ATA-8,,0ATC^JT\n"); 
orintfCmov  TSTRDATA,STP\PxT\n‘'); 
return; 

crintf(".alohl  danrqrSr"); 
orintf(''jsr  cCfOanrOrVo");  return; 
crintf("jsr  oCfPw'idNn",!);  return; 
crintt("/TTO  ^ X ’/,cl  \ n \ nF  ,'■1^.0  : \ n \ r " , i t t ) ; 
re  t u r n ; 

symtablelil  .diT’en4-  + ; 

< = i-  symtableM)  .ntT, en; 
f C r ( i = '<  ; j < i ; i + + 1 

< Drintf("n»cvt  *(rti)+,frO\n"); 
orinttC"mov  5S"Cn,-(r4)\n",j3; 
Drint^("movf  fr0,*(ra)-f\n"); 

) ret  urn ; 

Drinttf"movf  *(r4)+,fp0\n"); 

crint^("nov  'SS%d»-(rJ)\n",i); 
Drintff"novf  trU»*(r4)+\n"); 
printf("rts  DcVnVnFxX  d:\n\n",  i ) 
itzi-symtableMl  .dingn; 
for  (j=k;  j<i;  + l 

symtablelj]  .symnol  (Olr'n'; 
r e t u rr  ; 

Drintf("movf  *(r4)t,tr0\n"l; 
Drintf("moy  3S%df“(r4)\n",i); 
orintf("‘"ovf  fr0»*(r4)+\n"); 
r e t u r n ; 

j = forctr  + +’; 

Drintf("movf  ♦{r4)+,frl\n"); 

C r i n t f ( ” n o V J K I % d , - ( r 4 ) \ n " , J ) ; 
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orintf("Tiov^  frl,*(ry)+-\nbr  lf\n"); 
Drintf("\nFb"id:\n",  j ); 

Drint;f("->-ov  BS%af”(r‘U)\n",0; 
print^("Tiov  5FI%d»-(r'4)\n",Jj; 
priotf("'novf  *(r4)+^ffrl\n"); 
print f("vovf  *(r4),frO\n"); 
k1=looVnf(l.); 

if  (kl  ==  -1)  ( kl=insertnr(l/l.); 

numbersCifll  ,1use=i;  > 
pr  1 nt  f ( "aadf  N d , f r 0 \ n " ) ; 
ppintf("'T>ovf  rO,*(rU)+\n"/kl); 
printf("l;  C.Tpf  frO,frl\n'')» 
ppintf(”cBcc  \njat  F5/:d\n",j); 
pe  t u pn ; 


case  41 


j=fppcfp++? 

ppipitf("'T'Ovf  ♦fpJlt/fp2\p'"l/ 

ppiPitf(”'T'OV  ?FI'id»-(p4)\n",  j ); 

ppinff("'novf  fP(?»*(p4)+\n"l; 
cpintf("'T'Ovf  *(p4)  + ,fpl\n'')» 
p p i p t f ( " T 0 V/  5 F N'd;  d » ” ( p 4 ) \ n " , J ) ; 
ppinff("povB  fpl/*(p4)+\p"); 
cpintf("rpov  SS%d/-(p4)\n",i  ); 
ppintf("'"Ovf  *(p4)+,fpO\n"); 
cpintf("bp  lB\n\r.  Fo%aJ\n\n"); 
ppinffC'Vov  T.  S%d»"(p4)\p",  j , i ); 
p p i p t f ( " rr  0 V 5 F ■»'  •/;  rj , - ( p 4 ) \ p " ) ; 
ppintf(""'ov  BFI%d,-(p'4)\p",  j , j ) 
ppiptf(""'ovf  *(p4)  + ,fp2\n"); 
ppiPt^C'Vovf  *(p41+»'fpl\p"); 
DPinl’f("'^OV^  *(p4),fp0\n"); 
ppintf("addf  fp2»fpOVn"); 
ppipff("’T'Ovf  fp0»*(p43>\p"); 
kl  = looi<nM0.); 

if  (kl  - = -1)  (Kl=ins»ptpp(0f0. 

nup'beps(kll.luse=i;  > 
pPiPtf("\nl:\pC’T’Pf  J%dffp<^\n"); 
ppiptff"c^cc\pj4t  ?f\p ",<!); 
ppiptf("c'T'pf  ♦pU/fpl\pc^cc\p”); 
cpip*'f("jat  F5’-d\p"»j); 
ppiPtf("ifT’P  5f\p\p")/ 
o r i n t f ( ” 2 : cnp  f f rO , f r 1 \n" ) ! 
p p i p f f ( " C B c c \ n j 1 t F 5 % d \ p " f j ) ! 
ppiptf("\p3:\p\n") ; 
pe  t u pp  ; 


cpintf("jmp  Fb  "-idVPVpFS'i  d:\n\p  "f  i , i 1 ! 
return ; 

case  4 2:  ppipff(''.qlonl  nupptp\p"); 
case  42:  ppiptf("jsp  ocfnup'otpXn"); 
pe  t u pn  ; 

case  43:  ppintM".qlobl  stPd’ncSn''); 

ppintf("jsp  nc»stPdP'o\p"); 
pe  f u pp  ; 
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case  orinttf".q1oCl  iindmcVn"); 

Drintf("jsr  DC»lindnD\n"); 
return; 

case  ^5:  Drintf("'^ovt  *(ra)  + ,frO\n"); 

printf("'T'ovfi  frO,-(ry)\n"j; 
return; 

case  46:  printf("'nov  SS%d»“(r4)\r",i); 
k = s V m t a D 1 e ( i 1 . I e n q t h ; 

Drintt("'nov  SX0f-(r4)\n",k); 
return; 

case  48:  orintf(".qlobl  nfcrrdr»atot\n"); 
crintf("Jsr  cc/nbrrdr\n"); 
printf("jsr  oCfatot\n"); 

Drintf(“novt  frO,*(r4)-*-\n"); 

r e t u r n ; 

case  46;  Drintt(".q1obl  Strrdr\n"); 

orintf("isr  nCfStrrqr\n"); 
re  t u r n ; 

case  bO:  printf("-^ov  ?%o*“(r4)\n", 

numbers  [il  .nunDeri»2); 

r e t u r n ; 

case  SI: 

printfC'Vov  *!f*-(r4)\npr  Pf\n"); 
printf("i:  <;;s\\0>\n.even\n"fStir:); 

pr  i nt  f (''  2 : mov  S%0>-(r4)\n", 

nunnbersril  .numt»eri»2); 
crintt(",qlobl  OPE'IVnjsr  PCfOPEf'iXn"); 
r e t u r n ; 

case  S2:  orintt("mcv  T%o»~fr4)\n", 

numpers  [i  1 .nymberi * 2 ) ! 
prinrf(".alobl  CLOSENn"); 
printf("jsr  PC»CL0SE\n''); 
r e t u r n ; 

case  S3 : 

switcbCsyn-tablefi]  .lenqth) 

{ 

case  0:  //  std  calling  tro  and  jsr  cc  r 
itCsymtableFil.amt  ==  0) 

< Drintf(".qlobl  Zs\n", 

syntablslil  .symool  ) ! 
symt ab 1 e ( i ) . amt + + ; } 

orintt("fT'ovf  *(r4)  + ,fr0\n"); 
printf("jsr  oCf’<s\n", 

symtableli]  .symbol); 
j = t empc  n 1 1 + % ,?0  ; 
orintt("mov  5T%d,-(ra)\n",j); 


' printf(''moyt 

fr0,*(p4}\n”) 

return; 

easel:  //dBS 

Drinttf''movt 

*(rU),fpO\n") 

printf("absF 

f r 0 \ n " ) ; 

printf("movt 

t r 0 » * ( r 4 J \ n " ) 

r e t u r n ; 

case  2 : 


case 


case 


case 


ifCsymtableril.amt  ==  0) 

{ Drint^(".QloDl  ’-iS/atnf\n", 

sv'f’tablefi)  .svtdo)  ); 
s y 1"  t an  1 e ( il  . aff' t + + ; > 

Drintf("jsr  DC»*/is\n", 

sy"'tanle[i]  .symbol  ); 
Dnntf("jsr  DC/ato^\n''); 
j=temDcnt  + + 20; 

r>rintff"mov  5T%Of-(r-u)\n’’,  ]); 
orintf("movf  +rO>*(fiJ)\n"); 
return; 

case  3 : 

if(symtab1e(iJ.amt  ==  0) 

( orintf(".qlocl  ‘-isNn", 

symtableli]  .sv-^rol  ); 
symtahle(i].amt++;  } 

D r i n t f ( " J S r o c » % S \ n " , 

symtable[il  .svmr, o1); 
j = t emnc o t + + % 20  ; 

Drintf("o'ov  Sr%o,-(rU)\n",  j ); 
printf("movf  frO,*(rU)n"); 
return; 

case  b;  //  chr?  unioue  oecause  5 not  valio 
/ / in  as 

i f ( s y T t an  1 e [ i 1 . am  t ==  0) 

{ D r i n I;  f ( " . q 1 o D 1 X s \ n " , " c r r " ) ; 

symtable[il  .amt++;  1 

crintf("jsr  cCfCtirXn"); 
return; 

case  8 ; 

iffsymtablelil.amt  ==  Ol 
{ Drintt(".alool  %s\n", 

symtanle(i)  .symool  ); 
symtable[i]  .a"t++;  > 

Drintf("jsr  OC  , "4  S\n"  , 

svmtableli]  .symbon; 

r e t u r n ; 

default:  return; 

} 

Sa: 

nrint'f(",qlobl  datrqrXn"); 
orintt("jsr  Dc»datrar\n"); 
r e t u r n ; 

5S: 

if  ( i ==  -1) 

Drintf("mov  51301/r0\n''); 

else 

Drintt("movf  *(rU)t,fr0\n"); 
orinf:f("<T>ovfi  fr0»r0\n"); 
crintf(".qlobl  sram\n"); 
print f("jsr  pc»srand\n"); 
r e t u r n ; 

So: 

orintf(".olobl  ^ u^\n"  ) ; 


I 

i 


n 


ij 

• i 

i! 

^ ) 

I. 
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rrintf("j<5r  oc»XOW\n"); 
return; 

Drint'f(".a)oDl  OWNnjsr  DC»0P\n"); 
r e t u r n ; 


orintM''.ri1obl  ftfJDNn"); 

Drintf("jsr  rc»A'ID\n''); 

return; 

Drintf(”.otobl  '-iOT\n''); 
printf("isr  oc/N0T\n"); 

ret  u r n ; 

orint^(".a'obl  SDCAL\n"); 
DrintM"isr  DC>SOCAL\n"j; 
r e t u r n ; 

orintf(''.a'obl  SU6STH\n"); 
DrintM"Jsr  Dc»3Uf33TR\n");  retur 

DrintM"'Tiov  lf»-(r4)\nbr  ^f\n"); 
orintfC"!:  .byte  012»0;''); 

orint^C"  ,even\n2:\n''); 

D r i n t ^ . a I nb  1 strafroXn”); 

printf("jsr  PCfStrdnp\n"); 
return; 

printf("mov  S%o»-fr4)\n", 
svmtable[i)  .lenatn); 
ret  u rn  ; 


printf("cl  r 
ret  urn  ; 


- ( r 4 ) \ n •’  ) ; 


(oncnt  1=  syrtableCn.ainen) 
error(svntable[i]  .svnbo'  »nsa[o]  ) 

if  (syntapleCil.anf  ==  0) 

{ syntable[i].ant  =1; 
printf(".oloDl  «-%s\n", 
symtableli]  .sympol  );> 
printf("(Tiov  i%o»“(r4)\n", 
syirfableti]  .dinen); 
pri  nt  f ( •’ .ql  obl  CSET\n"); 

Drintf("j'sr  cc»CSET\n"); 
printf("jsr  DC»*-*Cs\n", 

syntable(i]  .symbol); 
printf(''.alobl  CRET\n"); 

orintf("jsr  PC»CRET\n"); 
r e t u rn ; 


printf("mov  (r4)+,r3\n"); 
nrintf("mov  (ru)-f,r^\n"); 
printf("mbv  r?,-(ra)\n"); 


crint^("'nov  r5»-(r4)\n"); 
return; 

case  68 : 

orintM"mov  fSor-(r4)\n"» 

numoers  (i  ] .nu'T'Deri  *?)  ; 
orintf(".a)ob1  F'EADFVn"); 

Driott(''isrnCfPEADF\n"); 

r e t u r n ; j 

c a s e 6 : j 

D r i n t t ( " . a 1 Ob  1 R E A 0 F fi , a t o f \ n " ) ; j 

orintf("jsrpc»REAUFfJ\n"); 
orintF("jsrDC»atof\n"); 

printf("'TovttrO/*(rU)+\n");  j 

return;  , 

c ase  70  : ; 

Drintt(".olob1REA0FS\n");  ; 

orintt("jsr  oc»REAbFS\n");  i 

r e t u r n ; j 

c ase  7 1 : j 

r>rinttf".aloDl  READFESn"); 
printM"jsr  cc»READFE\n"}; 
re  t u r n ; 

case  72 : 

orintf(".alob1  A'WITF^J\n"); 
printM"jsr  oCf>■^RITF^l\n"); 
ret  u rn ; 

case  75: 

orint^(".aloDl  /JRITFSNn"); 
printf("jsr  oc».vRlTFS\n"); 
r e t u rn  ; 

case  7a : 

orintt(".alobl  ARITFEVn"); 
printF("jsr  cc»/<RIFFE\n"); 
r e t u r r ; 

case  75 : 

orint^C'Vov  S%Of”(ra)\n", 
numbers  Ci  ] .nunceri  *2)  ; 
orint'f(".olobl  /'iRITf'Nn"); 
crintF(’'jsr  pc»^(RIi’F\n"); 
r e t u r n ; 

) } 

caldooe(ifjl»k)  int 

int  il;  dope Cdooeot ] = 1 ; 
syrrtableCi)  .ar't  = i; 
tor  ( i 1 =dooeo t - 1 ; il  > k;  il--) 

{ symt ab 1 e I i 1 . a^t  =*  ( oooe f i 1 1 + 1 ) ; 
dooe(ill=*  dooe f i 1 ♦ 1 1 ; 1 

symt  ab  1 e [ i ) . a^rt  =*  (dooelkj+l); 
d o p e ( k 1 = i 1 ; 


1 35 


STRUCTURES 


r ^ 


u 


a 

de  f 

i ne 

TRUE 

1 

u 

de  f 

i ne 

false 

0 

a 

de  f 

i ne 

ERRORFILE  2 

u 

de  f 

i ne 

SYWSIZE 

20  0 

u 

de  f 

1 ne 

NiUMSI  ZE 

200 

n 

de  f 

i ne 

namfletmGth  r 

u 

de  f 

i ne 

SI'«1LEM 

1 0 

a 

de  f 

i ne 

CO  I SP 

10 

tt 

de  f 

i ne 

MAXFOP 

10 

char 

f 1 1 

in  1518)  ; 

char 

* f i 

1 e i n f i 1 

1 i n ; 

extern  int  foutJ 

1 n t 

f i 1 eou t ; 

char  fi  InamtNAMtLENGTH+l]  i 


/*  ttiis  array  'Jefines  the  function  of  each  character  in 
the  ASCII  character  set  for  use  in  vyle* 

-2  = eof  and  end  token  for  yacc 

-1  = illegal  characters  to  be  deleted 

0 = blanks  and  tads  to  be  discarded 

1 = newline  --  used  to  uodate  line  counter 

2 = legal  scecial  cahracters 

3 = all  letters  and  the  dollar  sign  '5' 

y = didits  and  the  decirial  ooint 

5 = guote  --  used  to  delimit  strinas  and 

deleted  ' " ' 

0 = i — continuation 


int  chartyoe  (12'^)  I 

2, -1, 2, 2, 2, 2, 2, 2, a, 2, u, u, a, a, a, a,  u,  a, 4,  a, 

”lf2f2»2»2»“l»o» 

3, 3, 3, 3,  3,  5,  5,  3.  3,  5,  5,  3,  3,  3, 3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3, 

2»*l#2f2^*l»*l/ 

3»3f5»3»3»3»3»3»5»3»3/3f3»3>3»3f3f3»3»3»3f3»3f3/3»3» 

- 1 , 2 , - 1 , 2 , - n ; 


I 

i 

1 

! 

! 


i 


int  yyline  l»errorcnt  0; 
int  conflag  0»exflag  IJ 
intc/  //the  global 

char  stig  f2Sb);  //  the 
intstigi;  //the 


//  dlbl  line  cntr  for  vacc 
//  cont  and  extern  ref  f 1 aa 
next  character 
global  string  collector 
length  of  the  String  literal 
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14 


r 


int  di'nv  O»eofflaa  0;  int  de^v  0; 

int  ^unccnt  0;  //  alobal  flaas  and  counter 

int  j;  //  general  teTir 

int  fdsLlbl;  //  fds  for  RE^O/rtRITE  FILE 


struct 


doub  1 e 

numbe  r f ; 

i n t 

numbe  r i ; 

i n t 

use; 

i nt 

1 use ; 

i n t 

dec  ; 

numbe  r s 

is  a St 

int  dec?  I pur>hers(NU‘^SIZEI/ 

/*  numbers  is  a structure  used  to  no'g  literal  numcers 


1 use  = 
use  = 


numbe  r f 
numbe  r i 


-1  floatinq  coint  declaratic! 

0 integer  declaration 

1 used  as  numbe  r 

1 used  only  as  label 
(?  used  as  sf'atement  laoel 

= floating  ooint  values 
= integer  value 


int  numberot  0/ 
int  doDe(200l; 
i n t nooeo  t » 


//  index  of  numoers 

//  vector  used  to  hold  ocoe  values 
//  next  available  dooe  oosition 


struct 


char  symbol  [SI^'LE>i]  J 
int  t y oe ; 

int  d i men ; 

int  1 engt  h ; 

int  amt/ 

i n t aoD V ! 


} symtable  (S'f'^SIZEl; 


symt  ab 1 e 

symbo  1 
t yoe 


structure  used  as  a symbol  table 


identifier  value 
-I  null  oarms  of 

0 numeric  id 

1 numeric  array 

2 s t r i no  id 

3 strina  array 

U function 

5 nume r i c b i f 

6 string  bif 

7 simple  format 
numeric  format 


extern  variables 
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9 

10 


numeric  stri nq  b i f 
external  variables 


dimen  = dimension  of  array 

number  of  oarameters  ior  function 
lenqtr  = lenqht  of  a string 
dopev  = index  of  t^e  first  element  of 
the  arrays  done  vector  in  done 


amt 

= 

use  for  tif's  l=useo 

0=unused 

numb«*r  of  elements  im 

numeric  array 

number  of  bytes  in  a 

Strina  array 

* / 

1 n f: 

S ymp  t 

SY'^SIZE- 

1 ; 

//  Pointer  into  the 

symbol  table 

i n t 

tnum,tsym; 

// 

temporaries  is  structures 

i n t 

R/iflASE 

// 

base  of  reserve  woros 

in  Symbol  tab 

i n t 

f O r c n t 

0 ; ■ 

i n t 

tempcnt  0,maxtemD  -i; 

1 n t 

max  for 

-1  ; 

i n t 

one  n t 0 ; 

i n C 

f 0 rc  t r 

0 ; 

/ * 

f O r c n t 

current  depth  of  nested  for  loocs 

t empc  n t 
max  for 


one  n t 

f 0 r c t r 


value  used  to  manage  the  temporary 
pool  used  as  tempcnt%£0 
maximum  number  of  for  loobs  nested 
to  this  point  in  the  program  -- 
used  to  oetermine  numoer  of  for  looo 
variables  needed 
count  of  ON  statement  label 
current  count  of  all  FGR's  used  -- 
used  for  label  defintion 


* / 


int  dfunar(20);  int  defunar  0; 


int  datact  0;  //  pointer  to  the  next  data  value 

double  oatallOOl;  //  data  list  to  oe  used  as  data  to  mEAO 


char  »msd  (1  { 


"♦♦ERROR** 

attempt 

t 0 

redefine 

a numeric  id  as  array 

"♦♦ERROR** 

a 1 1 emp  t 

t 0 

r ede  f i ne 

an  array  id  "♦ 

"♦♦ERROR** 

a t t emp  t 

t 0 

redefine 

a strina  ", 

"♦♦ERRO®** 

a 1 1 empt 

t 0 

rede  fine 

function  ", 

"♦♦ERROR** 

attempt 

t 0 

rede  f i ne 

ouilt  in  function  ", 

" **error** 

at  tempted 

use  of  numeric  id  as  array  "» 

"♦♦error** 

i ncorrect 

nu 

'"be r of 

parameters  ", 

"♦*t'RROR*»  illeaal  use  external  naf^e"  / 

"**ERR0R**  illeaal  use  of  strino  io  as  string  array”/ 

0 

) ; 

extern  char  *bifsl)» 
int  oiftyoel)  { 

5/5f5»5»5»5»S*'b/5»b»6,R,5/5/5>b»5/5/B,f^/7,5»-l  > ! 

int  bifact  1)  i 

0/0/5/0/3/0/0/U/0/B/3/fa/0/5/0/2/0/0/B/B/**l/l/*l  }/ 

/*  variables  for  data  string  collection  */ 

char  da t a s t r i no ( u 0 0 1 ; 

char  *datastor  3oa t as t r i no [ 0 ] ; 

a define  SY'^SIZE  500 
3 define  fnj^'SlZE  5^0 
3 define  SI*>’LEN  10 


struct  numbers  { 

ooub 1e  numberf; 
int  numberi; 

int  use? 

int  1 u s e ; 

int  dec ; } ; 

extern  struct  numgers  numoersU; 

/*  numbers  is  a structure  used  to  ncld  literal  numcers 

dec  = *1  floating  noint  declaration 

0 integer  declaration 
luse  = 1 used  as  number 

use  = 1 used  only  as  label 

2 used  as  statement  label 

numoerf  = floating  ooint  values 
numberi  = integer  value 


St  rue  t symt  ab 1 e { 

char  symbol  (SIRLE\']  ; 
int  t yoe ; 

int  d i men ; 

int  length; 

int  amt; 

int  d 0 g V ; > ; 

extern  struct  symtaole  symtarl 


sywtaDle  is  a structure  used  as  a svirhol  tacle 
syriDoI  = ia^tntifier  value 

tvoe  - ”1  null  Darms  of  e»terri  variables 

= 0 nurreric  id 

1 nurreric  array 

2 s t r i nr)  id 

3 Strino  arrav 

, function 

5 numeric  bif 

6 string  bif 

7 simcle  format 

8 numer i c format 

9 nurreric  string  bif 

10  externa)  variaoles 


d 1 men 


length 
dooe  V 


dimension  of  array 

number  of  Darameters  for  function 

lenght  of  a string 

index  of  the  first  elerrent  of 

the  arrays  doce  vector  in  dooe 

use  for  hif's  l=used  U= unused 

number  of  elements  in  numeric  array 

number  of  bytes  in  a string  array 


the  following  definitions  are  the  reserve  words  o^  BASIC 
reserve woros  = caoitol  scellinas 
1 rese r vewo ros  s lower  case  soellinqs 

note  the  ' ' inserted  to  all  texts 

to  allow  "C"  to  crocess  t^e  values 
of  its  own  reserve  worgs. 


char  * r e se r V e w 0 r ds  (1  i 
"STEP"  , 

"GO"  , 

"IF", 

"UN"  , 

"TO"  , 

"OEF"  , 

" D I " , 

"END" , 

"FOW"  , 

"LET", 

" U £ '-1 " , 

"DATA", 

"ELSE", 

"GOTO"  , 

"FILE", 

"NEXT  " , 


•**  k ^ 


"Rk  AD"  , 

"OPEN" , 

"STOP" , 

"THEN"  , 

"GOSUB"  , 

"INPUT", 

"PRINT", 

"CLOSE"  , 

"/JRITE", 

"RETURN" , 

"RESTORE" , 

"SUB"  , 

"RANDOMIZE"  , 

"EQ"  , 

" L T " , 

" G T " , 

"GE"  , 

"LE"  , 

"NE"  , 

"REMARK", 

"CALL"  , 

"EXTERN  " , 

"INTEGER" , 

"FLOAT" , 

"DUUbLE" , 

"CmAR"  , 

" ADDR"  , 

"OR"  , 

"XOR", 

"NOT"  , 

" AND"  , 

0 

) ; 

char  » 1 p e s e r ve  wo  r as  I]  I 
" s t e o " , 

"«-go"  , 

" i f " , 

•-on  , 

" 1 0 " , 

"•-aef  " , 

"«-di  nn"  , 

"•-ena"  , 

" f o p " , 

"•-let", 

" •-  r e m " , 

" *-  d e t e " , 

"-else", 

"-goto"  , 

"-file", 

" - n e * *•  " , 

"-read" , 

"-ooen"  , 

"-stoo"  , 
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« 


»« 

l« 

M 

II 

It 

It 

tt 

It 

It 

It 

It 

tt 

It 

H 

It 

tt 

It 


♦-then’'/ 
♦-gosuD"  / 
♦-input  " / 
♦-print"/ 
♦-close", 
♦-write"/ 
♦-return"  , 
♦•restore"/ 
♦-sue"  / 
♦-random  i ze 
♦-eg"  / 

♦-It"/ 

♦■gt  " / 

♦-  g e " / 

♦- 1 e " / 

♦-ne"  / 
♦-remark  " , 


tt 


"♦-call", 
"♦-extern"/ 
"♦-integer", 
"♦-float"  , 
"♦-oouPle", 
"♦-char"  , 
"♦-addr  " , 
"♦-or"  , 

" ♦-  X o r " / 
"♦-not  " / 
"♦-ana"  / 

0 

) / 


char  *rifsn  { 

"at  an"  , 
"exp"  , 
"mod" , 
"log", 

f PCI  f 
SIP  f 

"cos'*/ 

'*  sort " / 
tan  / 

I en  / 

" a s c " / 

" C n r 5 " , 
"cosh", 
" i n t " , 

" S i n h " , 
"val  " / 
"rad". 

It  ^ _ It 

deg  / 
t ao  / 
col  / 


14? 


w 


scanner 


/ * t^e  folio  winq  are  t'^e  user  defireo  functions  reouireo 
to  provide  scanning  »/ 

V y 1 e X ( ) 

{ extern  int  yylval?  //  this  value  is  used  to  return 

//  values  to  yacc 

double  atof(); 

char  idtl0],numstr{501/  int  i>k/i;  douole  dfbJ 
while  (TRUE)  //  no  forever  or  until  return 

( 


switch(chartyoe(cl  ) 
( 

/ * eo  f and  the  “nd 

token  for  yacc 

-- 

case 

-2 

illegal  characters  -- 

case 

-1 

D 1 an  k s 

case 

0 

ne  w 1 i n e 

— 

case 

1 

legal  specials 

case 

2 

letters 

case 

5 

digits  and  oecin 

a 1 — 

case 

4 

strings 

- - 

case 

s 

continuation 

-- 

case 

b 

*/ 

default: 

case  ”2:  return  (c) 

; // 

if  «e 

net  here 

/ / 

-e  ' d 

petter  be  none 

case  ”1:  io(01=c;  i 

d 1 1 ) = * 

\ 0 ' ; 

e r r o r ( i d » " 

i 1 1 eqa 

1 character  delet<»d"); 

c =ae  t c ( f i 1 

e i n } ; 

break 

9 

// 

t n r Qw 

away 

i 1 leaal  characters 

case  0:  c=aetc(fil 

e i n ) ; 

break 

9 

/ / 

0 1 an  < s 

tnrown  away 

/*  just  uodate  the  line  counter  and  return 
newline  to  vacc  * / 

case  1 ; 

yyline  + t-;  i=cJ  c=aetc(filein); 
if  ( eo  f f 1 aa  ) c = 0 » 
if  (1  ccnflaq) 

( exflaq=i;  dinv^O;  defv=0; 
ifCtenpcnt  > naxtenc) 

naxter'D  = tenocnt; 
tenccnt=0<"  return(i);  } 
conflaq=0;  break; 

//  continuation  on  next  line 
case  <? : i =c  ; c =ae  t c ( f i 1 e i n ) ; 

//  return  the  legal  craracter  as  is 
r e t U r n ( i ) ,‘ 


case  3:  i=0;  idli+t]=c; 


//collect  id's  sni  reservea  woros 
c=qetc(f) lein); 

/*  collect  t^ie  first  letters  in  i q --  note  no  reserved 
worn  is  longer  than  'I  and  id's  are  liTiiteo  to  ‘4  */ 
while  ( ( ( c h a r t yoe  [c 1 == 5 ) II 
(chartyoe  Ic) = = y)  1 
)S.ii  i < 

{ id(i+t]=c;  c =qe  t c ( f i 1 e i n ) ; } 

i d I i ) = ' \ 0 ' ; j = i ; 

//  Dad  null  to  end  string 
/*  uDoer  case  reserve  worcs  */ 
l=lookrs(id); 


( 1 : = 

-1 

1 //  return  reserve  if  valid 

S w i t C h 
y 

1 ) 

case 

0 : 

return  (STtP); 

case 

1 : 

ret  urn  ( GO ) ; 

case 

2: 

r»turn  CIFJ; 

case 

3: 

return  (OM; 

case 

a : 

return  (TO); 

case 

5: 

oefv=i;  return  (OFF); 

case 

h : 

di’T'v=l;  return  (01 V); 

case 

7: 

eofflaq  = 0;  return  (F''lD); 

//  guarantee  eof 

case 

return  (F09); 

case 

return  (LET); 

case 

1 0 

case 

35 

while(c  1=  '\n') 

c=aetc(filein);  return(hE'-); 

case 

1 1 

return  (DATA); 

case 

12 

return  (FL5E); 

case 

1 3 

return  (GOTO); 

case 

1 a 

return  (FILE); 

case 

15 

return  (^<Ej<T); 

case 

le 

return  (9EA0); 

case 

1 7 

r e t u r n ( C P E . '<  ) ; 

case 

1 5 

return  (STOP); 

case 

1 9 

return  (TriF'J); 

case 

20 

return  (G(JSuB); 

case 

21 

return  (I'JPUT); 

case 

22 

return  (PPIMT); 

case 

23 

return  (CLOSE); 

case 

2 a 

r e t U r n ( k';  R I T E ) ; 

case 

25 

return  (RETuPL); 

case 

26 

return  (RESTORE); 

case 

27 

return  (SUB); 

case 

28 

return  (RAMDC''IZE); 

case 

2Q 

yylval=0;  return  (relsoec); 

case 

30 

yylval=12;  return  (relsoec); 

case 

31 

yylval=H;  return  (relsrec); 

case 

32 

vylval=20;  return  (relscec); 

case 

35 

yylval=l6;  return  (relso^c); 

case 

3a 

yylval=a;  return  (relsrec); 

case 

56 

oncnt=0;  ex^lao=0; 

1 as 


return(CALL); 

case 

37: 

oncnt=0;  exflao=0; 
return(EXTtK^O  i 

case 

3«: 

case 

39: 

case 

‘4  0 : 

case 

9 1 : 

case 

92: 

y y 1 V a 1 = 1 “ 3 8 ; return(TYPE) 

case 

93: 

return(OR) ; 

case 

99 : 

return(XGR); 

case 

95: 

return! NOT); 

case 

96 : 

return(AlvO); 

} 

/*  not  a reserve  word  loo^  for  an  ID  if  length  o'<  */ 

if  (j  >=  5 iXi  exflaa)  //  ^ cban  limit  on  sto  ios 
{ e r r o r ( i d » 

"illeqal  10  name  ■”  numeric  ID  useo”!? 
id(d)='\0';  i=looif'.jc(ic));> 
else  i=lookuD(in); 

/ * 

Any  ID  whic*^  Conforms  to  normal  B^SIC  10  oefinitions  is 
acceotable  --  tt'us  the  following  forms  are  recommenaed 


numeric  id's 

--  letter 

letter 

d i d i t 

string  id's 

letter 

' 3 ' 

letter 

digit  ' T 

function  ic's 

- - FN  letter 

PtJ  letter  didih 

These  forms  are  recommenced  however  the  following  are 
the  resrtictions  which  are  enforced. 

1)  lenath  l-'4  characters 

2)  the  id  must  fceain  with  a letter, 

uDoer  or  lower  case 
5)  rules  fgr  the  recoqnition  of  tvces 

numeric  id's  wxyz 

W n=  F , t 

X - = tj , n , f 

y nr  f 

strino  id's  wxyz 

w nr  F , f 
X nr  ivj , r. 


1 Uh 


I 


r 


X Of”  V ^ust 


= $ 


function  id's  wxvz 


M TUSt  - F,f 
X must  - N/n 


U)  id's  may  mix  ucoer  and  lower  case  freely 


*»*********»*»*******•**♦»♦*»********»*********♦«**»******** 


NOTE 


reserve  words  are  acceotable  as  entirely  UPPEk  C^SL  or 
LOwEP  CASE/  however  they  may  not  De  '“'I'<ED1 


* / 


if  (i  1=  -1)  //  return  tyoe  if  oredeclareo 

{ if  (oimv==l  !!  defv==lT 

switchCsymtableli]  .tyoe) 

case  0 : 

case  10:  if  (defv  ==  1) 

{ yylval=insertfio); 

return  (numeri  C*-i  o)  / 1 
error(id/msg(0] ); 
return(numeric<-id)  ; 


case 

1 ; 

errorfid/msqin  ) ! 
return(arrav»-id)  ! 

case 

2: 

case 

3: 

error(id/msq(^]  ); 

returnfst  ri  na«-i  d)  ! 

case 

a : 

error(id/msg[3]  i: 
return(  funct  i on*-i  o)  ; 

case 

5: 

case 

6 : 

case 

7: 

case 

8: 

case  P:  error(i0/mso(4]); 

oe  f au  1 t 

: e r r c r ( 

i d / msq  t 7 1 ) : 

y y 1 V a 1 = i / 


sw  i t c h 
< 

case 

( symt  ab 1 e [ 

i 1 .tyoe) 

0: 

case 

1 0 

: r e t u r r 

(numeric«-'d); 

case 

1 : 

r e t u r n 

f a r r ay<-  i d ) f 

case 

2: 

r e t u r n 

( S t r i nn«-  i a ) ; 

case 

3: 

r e t u r n 

( S t r i nq«-  i q ) ; 

case 

a : 

r e t u r n 

(functionwiq); 

case 

S: 

r e t u r n 

fnumeric^'bif); 

case 

h : 

r e t u r n 

( S t r i nq«-b  i f ) » 

case 

7 : 

r e t u r n 

(simole«-for-at); 

case 

B: 

return 

(nj"-eric*'for”'at  1 / 

case 
} ) 

P: 

r e t u r 

(str«-nijm*-oi  f); 

1 U7 


■ • ^ 


w 


/»  Cl^eck  ^or  a function  definition  FN,Fn,ffj,fn  */ 
if  ( ( i o [01  ==  ' F • : i i d [01  ==  ' f ■ ) ’’if. 

(iotn  ==  'N'  :i  idtn  ==  ’n')) 

{ 1 = i nsert ( i d) ; vylval=i; 
sv’ntableii)  •tyDe  = ‘4; 

netunn  (functionvid)?} 

/»  not  a function  --  a string  id??  x5,xyS  */ 

if  ( i d ( 11  ==  ’S’  ! : i d [21  ==  ’5*1 

{ i = i n se r t C i d ) / yylval=i; 
if  (dimv  1=  1)  { 

e r ro  r ( i d » 

undefined  string  io"); 
error(id,"assioned  default  lengtn  In"); 
errcrcnt  = errorcnt~2; 

//  back  out  error  on  warning 
s y m t ab 1 e [ i ) . 1 eno t F = 1 6 ; } 

symtableli] .tyoe=2; 
return  (strinq«-id);> 

/*  not  function  or  String  Tust  be  numeric  */ 

i=insert(id)/  yylval=i; 
return  ( n une  r i c i d ) ; 

case  4:  d=0.;  b=.l;  j=0;  i=0; 

//  numbers  fall  Fere 

/*  does  tne  nuinber  geoin  witF  a decimal  coint  ???  */ 

numstr[jtt]=c?  if  (c==’.')  i=lJ 
c =qe  t c ( f i 1 e i n ) ; 

wh  i 1 e ( C h a r t yoe  [ c 1 ==  'I  4^ 

1 f f c ) 

{nu'nstrljt  + 1 = c ! c=aetc(filein);  1 

else  if  (i==l)  ^ break!  1 

else  { i=l;  nums t r [ j + + ) =c  ; 

c=aetc(filein);  } 
if  (i  !i  j<5)  nunnstr[jj=  *\0'; 

else  if  (j>S  II  nunstrlO]  >=  '3') 

{ i = i;  nurrstr(j+  + ]=  '.'; 
nun'Str[j]=’\0';  1 

else  { nuns t r [ j ] = ' \ 0 ' ; } 

if  (l  ==  0}  { j = a t O i ( nun S t r ) ; k = lookni(j); 

/ / declared  as  integer  lockuc 
if  (k  ==  -1  ) 

{ d=j!  k=insertnr(i,d); 
nunbers[kl  .dec  = 0;}} 

else  { d = atof(nijnstr); 


1 ijF 


as  real 


1 QGkuD 


m 


/ * 

i n 


return 
y V 1 V a 1 


j=d»  k = 1ooi<:nf((:j); 
if  (k  ==  -1 ) 


{ k=insertnr(j,d) 
numbers  [k]  ,dec  = 
index  in  number  table 
and  return  number  */ 


> } 


vvlval=k;  return  (ncjmber); 


case  S:  stiql=0;  //  strings  fall  here 
while  ((c=cetc(filein))  1=  '“* 

4 A stigl  < i?56) 
stig[stiql-t-h]=c; 

//  collect  the  string  in  stiq 
c=getc(filein);  stia[stiql]='\0'; 

but  in  the  null  for  string 
return  (strina); 
case  q;  //  continuation 

conflaa=l;  c=q'ttc(filein);  break," 

//  flag  OP  nextchar 

default;  return(O); 

/*  eng  of  yylex  */ 

} > > 


vyinit  (arqc,arqv)  int  arocJ  char  **arcv;  { int  ijJ 

if  (arqc  1=  2)  ( errorC’iRG  COUNT??", 0);  exit(l);l 

j=o; 

1 i =0 ; 

while(arqv[ll(j)  1=  '\0'  ij  < N*‘^ELEliGTb  - 21 

{ if  (argy[ll  tjl  ==  '/')  { ij=0; 

//  set  filename  back 
else  f i 1 nam  ( i j ♦•  + ] =arqv[l]  lj+  + ); 

} 

if(  1 (filnam  [ij-11  =='b' 

filnam  (ij-2]==  '.'1  !l  ij<5) 

{ error("file  tvoe??",0);  exit(l);  1 
filnam  [i  j-l)='s'; 
filnamii jl='\0'; 
tout  = creat(filnam,0666); 
if  (fout  ==  -1) 

{ error(filnam,"can  not  ocen??"l;  exit(l);  1 
Drintf(".dlool  *-main\n\n.text\n\n«-"nain;\n\r"); 
Drintf("setd\nmov  SSTACK, ry\n"); 
semant(32,-l); 
semant (55,-1); 

for(tnum=0;  bifsltnuml  1=  O;  tnum++) 

{ j = i n se r t ( b i f s ( t num ) ) ; 

symt ab 1 e { J 1 . t yoe  = b i f t yoe  ( t num)  ; 
symt  ab  1 e [ j 1 . 'ii  men  = 1; 

symtaolefjl.iengtn  = bifact(tnurr); 

) 


1 aR 


HWBASE=  j ; 

j = \ookuo("vocl")f  symtaclelj)  . 'll  'ren  =2  / 
j = looi<uD("rnd");  sy'^tabletjl  .di'^en  = 0? 
j = 1 oo  < uD  ( " page  " ) ; svTitahletjl  .dim<?n  = 0; 

( f open ( a rq V ( 1 1 » H 1 e i n ) ==  -1) 

{error("can  not  open  arql'',0); 

unlink(filna(T’)»  exit(l);  } 
c=aetc(filein);  } 

//  called  first  by  yacc  get  first  character 


yyaccpt  ()  { int  k,l,tr,n;  char  *dataotr;  aouole  d;  d = 0; 

printfC'.qlobl  OATCNr,OATii,DATAENO"l; 
print  fC"STR^IEXT,3TRE^lD,STPDATA\n''); 
printf  (".data\n\n”); 
k =da  t ap  t * ; 

printfC'DATCNT;  0\n"); 
p r i n t f ( " D A T A ; \ n ” ) ; 

for  (j=0;  j < datapt;  jtt) 
nurrbrcvCi^data  [ j 1 ) ! 
orintf(“DATAEND:  0;n;0;0\n"); 
printf(’*STR'')EXT:  . = .+  a\  nSTRDATA;\n"); 

if  (datastpr  1=  datasfring(01)printf('’\n<"j; 
for  (dataotr  = idatastrinq(O); 

dataotr  < oatastpr;  dataotrt+) 
if  (*dataotr  ==  '\0')  printf("\\0>\n<"); 

else  cu t c h a r ( *da t ao t r ) ; 

printf("\\0>;  STRENC:  .oyte  0;.bvte  0;  .evenXn"); 

for  (j=0;  j<nuriberct;  jt  + ) 

if  ( numoe r s [ j 1 • dec  1=  0 !!  numbers  ( j 1 . 1 use  ==  1) 

{ printf  ("Mid:  ",j)? 

numbrcvfinur'berstjl.nunberf);  } 

for  ( j = s y m p t + 1 ; j < R A'  6 A S E ; j * + ) 

( k=symtable(i).type; 

Switch  ( k ) 

{ 

case  0 : 
case  10: 

orintf("S%d:  0;  0;  0;  0\t/  %s\n", 

jfSY'rtablelJl  .svrbol)>brea<; 
case  1:  1 =sym t ab  1 e ( j 1 . doov ; 

m = syr’taoletj)  .di-nen; 
p r i n t f ( " 5 D 1;  d : o X t \ t / li  s \ n " > 

j »T',svnitable  [j]  .syrEol  ) > 
for  (n=l+l;  n < l+mj  n++) 

( if  (k==l)  doce[n]=*  8; 
printf  ( " '<  o \ n " , 

dope  (n ] ) ; ) 


b r ea  k ; 

case  ?:  1 =sv'rt  ab  1 e 1 j 1 . 1 enot  n- t ; 

p r i n t f ( " S *4  d : 0 ; . = . + % o J " » j f 1 ) J 

print  f("  .even\t\t/'4sXn", 

s vmt  ab  1 e f j J . s vTico  1 ) ; brea«; 
case  '4 : o r i n t f C " S *4  d : 0 ; 0 ; 0 ; 0 \ t x t " » j 1 ; 


ISO 


printf("//Cs\n",sv'^t3t:le(jl  .symool  ) ! 


break# 


i=o; 

for  (k=0;  k<15;  k++) 

i f ( f Is  [ k ] 1 = 0 ) 

{ 

if  (f-Jstkl  ==  1)  i+  + ; 
else 

error("more  files  refe^enceb  than  oceneo"»0); 

> 

i f ( j : = 0 ) 

{ 

Drintf("B'JF;  , = .+  %o^n''#  j*S16); 

Drintf(".alobl  FD,f^DO\nFD:\n"}; 

1=0; 

for(k=o;  <<15;  <++) 

1 f ( fbs  (k)  1=0) 

or  i nt  f ( "\t  bUF  + :;o\r"  , 51rt*  ( 1 ■*■  + ) ) ; 
else  orintf("\t0\n"); 

Drintf("Fnr):  . = . + 50.\n’*); 

orintf(".te>it\n,plobl  FCLOS£\n£f#C/EF:\r"); 
orintfr"Jsr  DC»FCLOSE\n"); 
orintf("svs  e<it\n"); 

> 

else  Drintf(".text\nE'jDE'<:  sys  e*it\n"); 


print  f ( "\n\r>,bss\n\n"  ) ; 

ori nt f ( "ST AChTOP : . = . + 5 0 . \ n S T A C K ; . = ,+2\n"); 

for  (j=0;  j <=  forctr;  j + ♦■  ) 

printf("F'»‘*4d:  , = .+  8.\nFI%a:  . = .+  8.\n"#j/j); 

if  (maxte""o  < 20)  k=maxte'T'o;  else  <=20; 
for  (j=o;j<k;jh+) 

printf("T’lo:  . = .+  8.\n",j); 

for  (j=synot'<!;  j < R.vBASE;  j+t) 

{ k = s vTit  ab  1 e [ j 1 . t ype  ; 
l=sv'rtable[jl.ant  ; 
s « i t c h ( < ) 

{ 

case  1:  l = i*F;Drintf("Sl;r!;  . = .*%o\t\t/Es\n”, 

j #1  fSvmtable  (j)  .symbol  ); 
break; 

case  3:  orintf("3Ha:  . = . *%a:  .evem\t\t/Hs\''''# 

j > 1 / svmtablet  j]  .svrrbol  ); 

> 

) 


I 

J 


MAIN  PPQGPAM 


3 define  EPRORFILt  2 
a include  "./bstruc.n" 

extern  int  errorcntf  tileout»  fout>  vyline/  P.vffASE/ 
numberpt  /SyTiPt  , j 
extern  char  filnaTiIl; 

T'ain  (arqc»argv) 
int  a r gc  ; 
char  *argv(l; 

{ 

y V i n i t ( 3 rgc  f a rgv  ) ; 
ifCvyoarseC)  I!  errorcnt  >0) 

< unlinkCfilr,  am);  exit(l);  > 
yyaccDt  ( ) ; 
f 1 ush  ( ) ; 
e X 1 t ( 0 ) ; 

> 

compar(sl»s^)  //  cc^cares  two  strinas  returns  O if  n.e. 
Char  *sl»*s2; 

{ 

while  (*sl++  ==  *s2) 

if  (*s2+’+  ==  '0')  return  (1); 

return  CO); 

> 


strcoDy(s»t)  //  this  oroceoure  cooies  strinos 
cnar  *s»*t;  { 

while(*t++  = *s++); 

) 


numbrcvCst)  int  *st  □; 

{ int  i ; 

for  (i=0;  i<5;  i+t) 

printf("%o;  "fStCil); 
printf(''Xo  0»stI3)); 

} 


error(xfy)  char  *x,*y; 

< 

f 1 u s h ( ) ; 
fileout=fout; 
f out  = ERRQRF  ILE ; 
if  ( V = = 0 ) 


lb2 


else 

Drintf("l53d:  %s:  %sO,yyline»K»vi; 
f 1 u s h ( ) ; 
f out  = til eout ; 
errorcnt++; 
i 

yyerror(s)  char  *sJ  { 
extern  int  yyc har; 
extern  char  *yvsterT[)? 
f 1 ush  ( ) ; 
fi leout=fout; 
fout=ERRORFILE; 

Drintf("153s’*f  s ); 

if(  yyline  ) Drintt(">  line  Xo  > " i yyline  ) r 
orinttC"  on  incut: 
i f ( yychar  >=  0400  ) 

printt("%sOf  yystern[yychar-0400]  ) ! 
else  switch  ( yvchar  ) < 

case  ' orinttC  "\t0  Oreax? 

case  '0:  crinttC  "\n0  );  break? 

case  'O':  orinttC  "SendO  );  oreak; 
detault:  crinttC  "%c0  > yychar  );  break; 

} 

errorcntt*; 
t lush  C ) ; 
tout=tileout; 


lookuoCs)  char  *s;  C //  this  orocecure  valioates  la's 

int  i;  ^ / returninq  -1  or  svn-qoltable  inoex 

tor  Ci^syript  + i;  i<RvBASF?  i+  + ) 

it  Cco'TiDarCsrSyntableCil.Sy'T'bol)  > 0)  return  Ci); 

/♦  handle  uocer  and  lo/*er  case  reserve  worTs  */ 

tor  Ci=RwRASE;  i<SY'-'Sl£E;  it  + ) 

i t Ccomcar C s f synt ah  1 e C i 1 . synbo 1 ) >0  1! 

b i t c onoa r C s » i ) > 0)  returnCi); 

return  C - 1 ) ? 

} 

bitcoooarCSfi)  char  *s;  int  i? 

{ //  chec*  bits  by  translatina  all  lowercase  to  ucoercase 
//  returns  index  or  -I  it  no  natch 
int  k 1 » k ; 

Char  t [SIMLEMl  ; 

kl='a'“’A';  //  difference  oetween  ucoercase  anq  lease 
for  C<=0;  sCk)  1=  'O';  <++)  tCkl  = six]  ♦ ki; 


153 


1 

I 


c 

o 

o 

( n i ) 

//  this  croc 

e d u r e 

1 oc  a t e s 

n u e r 3 

/ / dec 

1 a r ea 

as  i n t eoe  r 

i n t 

n 1 ; 

{ 

i n t 

i ; 

for 

( i 

= 0 ; i < nunoe 

rot  ; i 

+ t ) 

i f 

( nunrbers  ( i 1 

. nu""be  r i - - n i 

) r e t u r n ( i ) J 

return 

( - 1 ) ; 

/ / 

r e t u rn 

-1  for  not  founo 

insert(cc)  //  this  opoceaure  inserts  new  ia's  ann 

Char  *cc»{  //  zeros  all  ep'tri®s 

j=sv'T'ot““J  //  petijpp'S  imex  in  tar’e 

if  ( j < 0 ) 

< errorC"  fatal  error  sv"rbol  table  overflew "» 
"co'i'D  i 1 at  i on  t e r t i n e t e 0 " ) J 
unlinif(filnem);  exit(t); 

) 

strcoov(cc»sv'rtableCjl  .synool  ) ! 

symtabletj) .tyce=0; 
symtable(j)  .-1i(T'en  = 0; 
symtable[j] .lennth=0; 
symtaolefjl .ooov=0; 
r e t u r n ( j ) ! 


1‘sa 


t [<1  = 'O'; 

return(co'"oar(t  »syr'table  li  1 .synool  J ) » 

> 

lookrs(str)  /*  resere  word  lookuo  -1  is  not  founo  */ 
cnar  *st  r > { 

i n t i ; 

for  (i=0;reservewordslil  1=  0?  i++) 

if  ( c omoa r ( s t r , r e s e r V e wo r ds ( i 1 ) II 

cor'Dar(str,%lreseryewords[il  (11))  retum(i); 

return  (-1)/ 

) 

looknf  (nf)  //locates  nunoers  declared  as  real 
double  n f ; { 

i n t i ; 

for  (i=0;i  < nuTDerot;  i+t) 

if  (numberslil.nunDerf  ==  nf)  return  (i); 
return  (-1);  //  return  -1  for  not  found 


} 


i n se r t n r ( j 1 * d ) //  this 

douote  Of  int  jl?  // 
{ int  i ; 


crocedure  adds  ne*j  numbers  to  t^e 
number  table  --  zeroinq  all  entries 
//  returns  the  inoex  in  the  table 


i =numbe  rp  t + ♦ » 
if  ( i >=  NUMSIZt ) 

{ error(" fatal  error  --  number  table  overflow"* 
"concilation  terminated")* 
unlink(filnam);  e*it(l)* 

} 


numberslil  ,numberf=d; 
numbers  ti  1 .numberi =j 1 ! 
numbers  [i ) .use  = 0; 
numbers  [i]  .luse  = 0; 
number  s [ i ) .dec  = 0 ; 
r e t u r n ( i ) ; 


IbS 


LIBRARY 


CU‘-'RAfr  . s 


.qlool  CU'^PAR,  AND,0R,  XOR,'JUT 
• text 
COMPAR ; 


j 'flp 

5f ( r 5) 

Deq 

m 

D r 

5f 

One 

a f 

b r 

5f 

bqt 

a f 

b r 

5f 

b 1 t 

at 

b r 

5f 

b 1 e 

U f 

b r 

5f 

bqe 

af 

c 1 r 

- ( p« ) 

//  false  into  stjc< 

r t s 

DC 

tro  V 

$l,-(ra) 

//  TRUE  into  stac>< 

r t S 

DC 

• 

• 

t s t 

(ra) 

beq 

1 f // 

TRUE  or  false  in  stac«? 

c 1 r 

(rai 

//  TRUE  before  set  FALSE 

r t s 

DC 

mo  V 

SI , (ra) 

//  false  before  set  TRUE 

r t s 

DC 

Cmo 

( r a ) f , ( r a ) 

bne 

1 f 

r t s 

DC  / / 

both  tne  same  so  AfjU  is  correct 

C 1 r 

(rU)  // 

qifferent  AMD  =>  FALSE 

rt  S 

DC 

C mo 

(ra)+, (ra) 

bne 

1 f 

r t s 

DC  / X 

both  the  same  so  OR  is  correct 

mo  V 

i 1 , ( ra  ) // 

bifferent  0®  =>  TRUE 

\ »» 


rt  s p 


XOR ; 

C-flp 

beq 
mo  V 
r t s 

1 : 

c 1 r 
p t s 


( r 0 ) t , ( p a ) 
1 f 

£1 , ( p^  ) 

DC 


( r a ) 

D 


//  dif^epent  xOP  =>  THlJt 


//same  XOR  =>  F4LSE 


CSET.s 


•qloDl  CSET,CHET 
• qloDl  «-ndiait»ER*?OS»strmv 
.text 
CSET  : 

mov  (r4)+,r5 
mo V ( so ) ♦ » r 0 
mov  sp»stacWsave 
Cmo  50»r3 
Deq  3 f 
mov  Shere»rS 

1 : 

mov  ( p4 ) ♦ » 
j mo  *3  f ( r 2 ) 

Here : 

sob  r 5 » 1 b 
3: 

j m o * rO 


/ tacle  o * actions 


i n t va 1 
f I oa  t V a I 
Ob  1 V a 1 
c h a r V a 1 
soec i a 1 
i n t a p r a V 
floatappay 


db  t a pay 

cbapstpinq 

soec i a 1 

i n t V a 1 : 

mo  V t 

* ( PU) 

mo  V t i 

f rO  , 

mov 

p2,- 

j mo 

* p5 

1 1 oat va  1 ; 

mov  f 

. ( pa  ) 

sett 

mo  V t 

f p 0 * - 

set  d 

j mo 

♦ p5 

db ) va  1 • 

mo  V t 

* ( p a ) 

mo  V t 

f pO  , - 

j mo 

♦ p5 

db 1 apay : 

t s t 

( pU)  t 

mov 

( P4 ) t / 

j mo 

* pS 

floatappay! 

/thpnwawav  booevectop  into 
/ cut  adopess  in  stac« 


» n t a p pa y ; 


jsp  p5, ERROR 


<*»ERWQR**  UP  i T'D  1 Amen  t call  oction\0>; 


even 


charva  I : 


t s t 

( pU) + / 

fRpow  a May 

length 

movb 

*(p4}+/-(sp^ 

j Pip 

* pS 

charstringl 

t St 

C rU ) + / 

tPPOw  away 

1 en q t h 

mo  V 

( P^  ) t , - ( SP  ) 

i mp 

* p5 

special  : 

mo  V 

*(p4)+»-(sn) 

j me 

* pS 

CRE.T  : 

mo  V 

( SP  1 f P 1 

mo  V 

stacKsave,sp 

se  t d 

t s t 

2(pa) 

beq 

1 f 

mo  V 

( pR ) + » p2 

j mp 

i n t ne  t 
f 1 oa t ne t 
db 1 net 
c n a r pe  t 
soec  ret 
i ntot  r 
f 1 oat  Dt  r 
db  1 p t r 
c ti a PD  t p 
spec  ret 


i n t re t ; 


db I ret 


c R a p re  t : 


t s t 

( pa)  t 

/ 

t h powaway 

a U m m y 

mo  V i t 

p 0 » f p 0 

m 0 V t 

fpO/*(pa)-t- 

j mp 

» p 1 

rt : 

t S t 

( pa ) + 

/ 

throwaway 

dummy 

set  f 

c 1 P ^ 

a ( r a ) 

mo  V t 

frO»*(pa)+ 

set  d 

j mp 

* p 1 

t St 

( pa ) + 

/ 

t h rowaway 

dummy 

mo V t 

f p 0 » * ( p a ) ♦ 

j mp 

* p 1 

1 SR 


t St 

( ra  ) + 

/ 

throw  awav  oummy 

mo  vb 

r 0 » ( r 4 ) 

mo  V P 

S ' \0,  1 ( ra  1 

C mp 

( ra ) + , ( r4  ) + 

/throw  away  old  length 

ana  acc r 

j mp 

* r 1 

c 6 a ro  t r 

: 

t s t 

(ra)  + 

/ 

throw  away  dummy 

mo  V 

( r4 ) t » r 5 

/ 

get  address 

mo  V 

(ra)+,r2 

/ 

get  old  1 enqt  h 

mo  V 

r 3 » “ ( r4  ) 

/ 

restore  address  on  cotton 

mo  V 

r 2 » " ( r4  ) 

/ 

restore  length  on  too 

mo  V 

r 0 f •■  ( r4  ) 

/ 

new  strino  address 

mo  V 

577777, -(ra) 

/dummy  1 en  to  force  use 

0 ^ o 1 'I  1 e n 

j sr 

PC , St  rmv 

i mo 

* r 1 

soec  re  t 

; 

t s t 

( r a ) + 

/ 

throw  away  dummy 

mo  V 

rO,*(ra)+ 

/ 

move  pointer  into  place 

j mp 

♦ r 1 

i ntPt  r : 

f 1 oa  t Dt 

r ; 

ab 1 D t r : 

j S r 

r5, ERROR 

<**ERPQP**  unimolemented  call  ootion\0>; 

• even 

2 : 

/ procedure 

calls  come  here  c 1 ean  stack 

c H a r ij  s e 

= o 

charouse  = 

lo 

cnp 

(r'4) 

, Sc  b a ru  se 

/ 

check  for  char  call  with 

a p a r m.  s 

beq 

c -no 

( rU ) f , $c  Harouse 

/ 

check  for  char  call  with 

a p a r m s 

oea 

cup 

( rU  ) * , ( r 4 ) + 

/ 

throwaway  unneeded  funct 

ion  a d d r s 

j '”P 

* r 1 

2: 

C T'P 

( r4 ) t , ( r a ) ♦ 

/ 

throwaway  unneened  funct 

i on  aOd  r s 

t St 

( r 4 ) + 

/ 

throwaway  unneeded  funct 

i on  anars 

j "HP 

*rl 

stacksave:  .=.+2 
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DOPCAL 


.glob)  DOPCAL 
.text 
DOPCAL : 


mo V $ 0 , dc  t mo 
mov  *(r4),p0 
mov  ( r4 ) + » r 1 
i nc  r 1 
i nc  r 1 
mov  Sfl  » r 2 


/get  number  of  subscripts 

/move  address  of  done  vector  into  r 

/move  to  fisrt  dooe  value 

/the  first  disolacement  is  1 


TOPC  : 

mul  (r4)+»r2 
add  r 3 , dc  t mo 
mov  ( r 1 ) + » r 2 
sob  rO,TOPC 
mov  dC  t mo  f r 3 
add  C r y ) * r 3 
mov  r 3 » ( r y ) 
r t s pc 
.data 

dc  t mo ; 0 / 


/aod  in  the  base  of  the  array 
/leave  the  address  in  the  stacx 


temporary  for  calculation 


EPPUR  . s 


. q 1 OD 1 

ERROR: 

1 : 


e PC  h ; 


ERROR 


(POv  52»r0 
move  (r5)+»erch 
beq  2 f 

sys  write;  erch;  1 
DP  lb 

sys  exit 
. = . ta 


OPF'..s 


. q ) Ob  1 

0PEN,CL0SE, SERPOR,FCLOSE 

. q 1 Ob  I 

F D , EDO  » f open , 

fcreat  »ERR0R»  f I ush 

.text 

OPEN: 

mo  V 

( r a ) ♦ , r 1 

/mode 

mo  V 

(rii)  + ,rO 

/aadress  oT  name 

mo  V 

r 0 * rE 

mo  V 

5F00, r 5 

/open  f 1 aas 

aod 

( pq ) , r 3 

/select  correct  flaa 

t s t 

(r3) 

/open  or  closed 

beq 

1 f 

j sr 

rS, SERROR 

<attempte')  to  reopen:  \0>;  .even 

i • 

1 • 

i nc 

( r3) 

mov 

SFD, r5 

/buFFer  bas“ 

add 

( r y ) t » r 5 

/select  correct  buFfer 

j mq 

*3f (rl  ) 

/select  mode 

5: 

/t  ab 1 e 0 F mooes 

Ra.\i00 

KUPEN 

CPEiTE 

APPEND 

RANOO  : 

i sp 

r5, SERROR 

<un i mo  1 emen t ed  ranccm  access:  \0>;  .even 

ROPEN: 

mov 

( r 5) , 3f 

j sr 

rS / f open ; 3 : 

0 

bes 

F ILERROR 

r t s 

DC 

CREATE: 

mov 

( p3) , 3f 

j s r 

r5»fcreat;  3: 

0 

bes 

filerpop 

r t s 

DC 

APPEND: 

mov 

rO,  3f 

SYS 

open ; 3 : 0 ; 

1 

bes 

F ILE APROR 

mov 

r 0 » * ( r 3 T 

mov 

SSIP  .,*2(r3) 

mov 

r3,  p2 

add 

lb,  r2 

mov 

r2,  ♦ *4  ( r 3 ) 

mov 

* ( r 3 ) f r 0 

s y s 

s e e < * 0 ; 8 

1 o3 


r t s 


DC 


FILEWROK: 

jsr  r5,SERR0R 
<Mle  ooen  error:  \0> 

F ILE4RR0R  : 

jsr  rS » ERROR 

<error  on  ooen  for  aDDend\n\0>»  .even 

SERROR : 

1 : 

mov  S2  » r 0 
movb  (r5)  + »secR 
Deq  2 f 

sys  writ*?;  sech;  1 
b r lb 
2: 

mov  52  f r 0 
movb  (r2)-*-/Sech 
beq  3 f 

sys  write;  sech»  1 
b r 2b 

3; 

mov  S2»r0 
mov  S'\n,sech 
sys  write;  sech;  1 
sys  exit 

CLOSE : 

mov  SFD»r3 

add  ( r 4 ) , r 3 

mov  (r3)f2f 

jsr  r5»flush;  2;  0 

mov  * ( r 3 ) » rO 

sys  close 

mov  SFDO  » r 3 

add  (r4)+,r5 

C 1 r ( r 3 ) 

r t s DC 

F CLOSE; 

mov  514  .»rl 
mov  5FD  » 
mov  5FD0  f r 3 
1 : 

t St  ( r 3 ) 
beq  2 f 
mov  (r2)»3f 
jsr  r5 / flush;  3:  0 
mov  * ( r2  ) f r 0 
sys  close 
2: 

add  52 / r 2 
add  52  » r 3 
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At.F  . s 

.a  I cb  I -?£AOF  , (^EdOF^,  SEAOF.T  , bt  ADFE 

•qlool  FD/FOO,qetc 

.text 

REAQF  : 

mov  iFOfr^ 
add  ( ra ) t , r ^ 
mov  ( r?) ,RE ADFILE 
r t S PC 
.data 

READFILE:  0 

.qtob)  ERROR 
.text 
R E A D F N ; 

710  V S rnumps  t / r 3 

710V  5^3  .»rl  /lenqth  nf  number  limited  to  ?3  dioits 


c 1 r 

r2 

m o V 

READFlLE,2f 

j s r 

rb 

/ ge  t c ; 2 : 

bes 

bad  read 

move 

rO 

» re  fi 

c mpb 

i • 

R » rc  h 

b 1 t 

bf 

C mob 

5 ’ 

0 , re  h 

bq  t 

2f 

710  VD 

r c b » ( r 3 ) + 

sob 

r 1 , 

1 b 

b r b f 

C mob 

''  * 

, rc  b 

beq 

3f 

C mpD 

« • 

\ t » r c h 

beq 

3f 

c mob 

$ ' 

. » rc  b 

beq 

Sf 

C mob 

5 ’ 

- » r c b 

beq 

a f 

C mpo 

5 ’ 

+ » rc  b 

beq 

3f 

b r b f 

C mp 

r3. 

5 rnumbs  t 

beq 

lb 

C mp 

r 3 / 

Srnumost  + 1 

bne 

bt 

t St 

r2 

bne 

bf 

sob 

r 1 , 

1 b 

C mp 

r 3 , 

Srnumost 

bne 

b f 

/standard  input 


1 bh 


movb 

rc  h , ( 

r 5 ) + 

b r lb 

t s t 

r 2 

one 

bf 

movb 

r c h , ( 

r 3 ) + 

i nc 

r 2 

sob 

r 1 » 1 b 

t s t 

r2 

One 

2f 

movb 

5 • . , 

(r5) 

movb 

5 • \0  , 

(r3) 

mov 

Srnumbst  t 

r t S 

DC 

2; 


badread; 

jsr  rS^ERROR 

<ERROR  baa  syste'n  call  WE40FN\n\0> 
.even 
.data 

rcti:  . = .+2 

rnumbst:  .=.+24. 


.qlobl  ERROR 
.text 
READFS: 


1 


rrov  (r4)  + .rl 
mov  (r4)+,r2 


/ 1 enat  h t b be  read 
/address 


mov  READFlLE»2f 
jsr  rb»qetc;  2:  < 
bes  badsread 
mo vb  r 0 » s r c h 
C mob  $ ' \n , s rc  ^ 
beq  2 t 

cmqb  S'">srcti 
beq  2 f 

movb  srch,(r2)+ 
sob  r 1 » 1 b 
2:  movb  S'\0.(r2) 
r t s pc 
bads  read : 

jsr  r5»ERR0R 

<ERR0R  bad  system  call 


/default  inout 


/out  character  in  olace 
/string  full  vet? 

/all  Strinqs  enn  in  null 


PE AOFS\n\0>  ; 


.even 


s r c h ; 


+2 


PEADFE  : 
1 : 
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• •> 


mo  V 

READFILE,2f 

j sr 

r5  » get  c ; ^ • 

bes 

2f 

c mpb 

S ' \n  » r 0 

bne 

lb 

r t s 

PC 

T 


m 


SOCAL  . s 

. q 1 Ob  1 SDC  AL 
• text 
SOCAL  : 


mo  V ^ 

*(ry)+»fpO 

mo  V f i 

f r 0 / r? 

mo  V 

( rU ) , r 1 

// 

save  length  for 

1 a h e p 

i nc 

( rU  ) 

// 

aunmen  t length 

by  null 

mu  1 

( r 4 ) ♦■  / r2 

// 

mult 

i D 1 y D V 1 eng  t h 

add 

r 3 r ( r 4 ) 

// 

add 

disdacement  to 

rase 

mo  V 

p 1 , - ( p4 ) 

// 

pestope  the  lenqtn 

rt  s 

pc 

SUBSTP 


. a 1 od 1 
• text 

suesTR: 


SURSTR 


mo  V ^ 

* ( ra ) + , f rO 

/ / 

lenqtP  0^  substp 

m 0 V f 

frl 

/ / 

staptimq  o^^set 

mo  V 

( r a ) t , p 1 

/ / 

1 enqr  h o^  stPieq 

mo  V f i 

f r\ , r2 

dec 

r2 

C mo 

r2  , r\ 

bqe 

1 f 

// 

too  long 

mo  V ^ i 

f p 0 » p 5 

add 

p5,  p2 

Cmo 

r2  , r\ 

bqe 

2i  - 

// 

stapt+length  toe 

far 

mo  V ^ i 

f p 1 1 r2 

// 

all  0^ 

dec 

r2 

ado 

r2  1 ( P‘4 ) 

//  al 

tep  addpess  oy  staptina  i 

mo  V ^ i 

fpO»-(pU) 

// 

new  lenotP  into 

stack 

rt  s 

pc 

ado 

P 1 » ( P ) 

// 

DCint  to  enq  of 

s t p i no 

mo  V 

SI  ,-(p<4) 

// 

length  now  1 

r t s 

pc 

sub 

P 1 » p3 

// 

how  much  too  biq 

mo  V H 

f p 1 » p 5 

add 

P 5 » ( P ^4 ) 

// 

new  stapting  aodPess 

mo  V H 

f p 0 / p 3 

// 

oet  lenqtn  aqain 

Sub 

p2  f p3 

mo  V 

p 3 » - ( p4J ) 

// 

new  1 enat  h 

r t s 

pc 

r 1 


T F . s 

.qlobi  AkirF,,vRITFN»rtWITFSf.''/f^ITFF 

.glob)  FD/FDO/Putc 

.text 

wRI r^: 

mo V $FD , r2 

add  ( r4  ) + , Pi? 
mov  (r?)»wRITFILE 
r t S pc 

.data 

iVRIIFILE:  0 


.alobl  nod i q i t » f 1 o t e r / ERR  OR 
.text 


W R I I F N : 

mov 

SwmjmbPf  p3 

j sr 

pc  » f 1 0 1 e r 

1 : 

mov 

Swnumb  p » p 3 

mov 

nodi q i t » p2 

1 : 

movb 

( p3) +, pO 

mov 

rtPITFILE,2f 

j SP 

p5 , pu t c ; 2: 

sob 

p 2 , 1 b 

movb 

S'  , pO 

mov 

wRITFILE,2f 

j SP 

p 5 , p u t c /'  2 : 

Pt  s 

pc 

wnumbr;  * 2^  , 


. q 1 OD 1 ERROR 

.text 

WRITES: 

mov  ( > r 1 

mov  ( r 4 ) t , p2 

1 : 

mov  WRITFILE»2f 
movb  (p2)+»r0 
beo  5 f 

jsr  p5»outcJ  2:  0 

sob  r 1 » 1 b 

r t s pc 
S: 
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movb  %*  0 rQ 

mo  s/  rtRI TF ILE , 2f 
jsr  rSfDutcJ  2 0 

sob  r 1 » 5h 
r t s pc 

.•.RITFE: 

movb  $ ' 0 r 0 
mo  V ARITFILE,2f 

jsr  rS  » out  c » 2 ! 0 

r t s DC 


asc  . s 


. q 1 Ob  1 asc 

.text 
asc  : 

tst  (ra)+  / POP  stacx 

mov  (ra)t,rl  / a'ldress'ot  string 

movb  (rl)»p2  / retrieve  character 

Tiovif  r2»fr0  / convert  into  a floating  pt 

rts  PC  /forreturn 
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nunpo  r 


J 


a t o f 


/ f = atoHo) 

/ char  ! 

IdfDS  = WOlOOttst 
stfps  = 170200ttst 

. a ) Ob  1 a t o f 


a t o f : 

St  f os  - ( so ) 

) df PS  $200 
movf  frlf-(sc) 

C 1 r - ( so ) 
c ' r f f r 0 

C 1 r r2 

mo  V ( ri4 ) + / p 3 

1 ; 

movb  (r3)+»r0 

C mo  $ ' » r 0 

beq  lb 

C mpb  r 0 , $ ' - 

bne  2 f 

i nc  ( so ) 

1 : 

movb  (r3)tfr0 

2; 

Sub  $ ' 0 / r 0 
c mo  r 0 , $ 9 . 
b h i 2 f 

jsr  pCfdigitaf 
b r lb 
i nc  r 2 
b r lb 

2; 

cmob  r0»S'.-'0 

bne  2 1 

1 : 

movb  (r3)+»r0 

sub  $ ' 0 » r 0 
c mo  rOt $ 9 , 
bh  i 2 f 

jsr  pc»dioitat 
dec  r 2 
b r lb 

2; 

c mob  p 0 » $ ' E “ ' 0 

beo  3 f 


(p5)  , S’- 


c 1 r p 1 
cpob 
Dne  3 f 
i nc  P ^ 
i nc  P 3 
3: 

movb  (p3)-*-»p0 

Sub  S ' 0 » p 0 
cmp  pO  » $9 , 
bh  i 3f 
mu)  SlO./pl 
aad  p 0 , p 1 
b p 3b 
5; 

t s t r9 
bne  3 f 
neg  p 1 
3: 

Sub  p 1 » p2 

1 : 

mo  V f Sone  » f p 1 

mov  p2/"(sd) 
beg  2 f 
bgt  If 
pieg  p2 

1 : 

cmp  p2»$30. 

bios  If 

c 1 p f f pO 

t s t ( sp ) + 

bm i ou  t a f 

movf  Shuqe^fpO 

DP  out  a f 

1 : 

mu  1 f J t en / f p 1 

sob  p 2 , 1 b 

2: 

t s t ( sp ) + 
bge  1 f 

divf  fpl»fpO 

b p 2 f 

1 : 

mulf  fpl»fpO 

C f CC 
b VC  2 f 

mov  f Shuae  » f pO 

2: 

out  a f : 

t St  ( SP  1 + 
beg  1 f 
neg  f f pO 

1 : 

mov^  (so)+ffpl 

1 d f DS  ( so  ) •♦■ 


1 75 


r 


r t s DC 


/ 

/ 

0 i q i t a f : 

cmof  Sh i q#  f rO 

c fee 
bit  If 

mulf  $ten,frO 

mov if  r 0 » f r 1 

addf  frl,frO 

r t s DC 

1 : 

add  52  » ( SD ) 
rt  s DC 

/ 

/ 

one  - 1^0200 

ten  - 410 ■'•10 

biq  = 5b200 

huqe  = 77777 


C h r . s 


• q 1 Ob  I C b r 
.text 
c f r ; 

Dcvf  *(r4)f,fr0  //  qet  nu'T'ber  oesired 

mov  f i f rO  » 

bit  $0177, r2  / guarantee  a valid  craracter 

mo  vb  r2  , c H r<- 
mov  $Chr*-,*(p4) 

mov  il,-(p4)  / leave  address  ang  lemtr  1 cn  stac« 

p t s pc 

c h p«- ; 0 


CO  I . s 


. g 1 Ob  1 col 
. g 1 oo 1 nob i q i t 
• text 
col: 

movf 

mov  f i f r 0 » r 1 
mov  r 1 » nodi gi t 
r t s pc 


f 


1 7P 


. q 1 Ob  1 cosh 
. q I OD 1 e xD 

cosh:  //  cosh  funct  .5*(e**u+e**-u) 

movf  frO,coshsave 


j s r o c » e X p 
mov  f frOrCOSharql 
movf  coshsave»fpO 
neg  ^ f rO 
) sr  pc  » exp 
addf  cosharqljfrO 
mulf  one  h a 1 ^ r C 
rt  s pc 

coshsave : . = . +8  . 

cosharql:  .=.+8. 

onehalf^-:  0*40000  ; 0;  0;  0 


•1» 


dan  n r . s 


.q ) ob ) dan  pd  r 

.globl  DATCNT,D4TAE''jO,DATA 
.text 
dan  rd  r : 

mov  DATC^JT,r? 

add  $8./p2 

cmD  p<?,S0ATAEN0 

bit  If 

mov  5DAT  A , p2 

mo V iZ  r rO 

mov  i 3 f f 4 f 

SYS  write?  4:  0;  56. 

b r If 

5: 

<\n*x*RUM  error***  no  num  data  num  restore  issued\n\0> 
.even 

1 : 

movf  *r2/fr0 
movf  fr0»*(r4)+ 
mov  r^/DATCNT 
r t s DC 


1 80 


Oat  ror.s 


. q ) Ob ) aa t nor 

.globl  STRnEXT,STRDATA,STRF-t'JO,stn'rv 


.text 

dat  rdr  : 

mo  V 

( rU ) , r 3 

ado 

STRtJEX  T , r 3 

C mo 

SSTREIM0-?  , r 3 

bqe 

1 f 

mo  V 

rO 

mo  V 

S3f ,af 

S V S 

write;  a:  0;  sa. 

mo  V 

sstroata,strnext 

b r 

1 f 

3: 

<\n*»*RUN  ERROR***  no  stn  data  stn  restore  issuea\n\0>; 


even 

mo  V 

( r 4 ) » r 3 

// 

save  length 

mo  V 

STRNEXT,-(ra) 

/ / 

move  next  data  adoress 

into  stac< 

mo  V 

r3,-(rU} 

// 

duclicate  strinq  lenath 

for  strmov 

j sr 

DC  » s t rm V 

dec 

r 0 

t s t b 

( rOU 

// 

d i d 

we  read  a wnile  string 

7 7 

beq 

I f 

t s t b 

( rO  ) + 

// 

NO 

loot  for  the  end  thi 

S String 

bne 

2b 

mo  V 

rO.STRNEXT 

r t S 

DC 

f 1 o t e r . s 


Idfps  = IZOlOOTtst 
stfps  = IZO^OOttst 

/ ftoa  basic  q fo  conversion 

. g 1 Ob  1 noo i q i t 

/ ecvt  converts  frO  into  decimal 

/ the  string  of  converted  diaits  is  pointed  to  by  rO. 
/ the  number  of  digits  are  specified  ny  ncdigit 
/ r2  contains  the  decimal  ooint 
/ rl  contains  the  sign 


f C vt  ; 

c 1 r e f 1 ag 
b r If 
ecvt: 

mov  Sl»ef1aq 

1 : 

stfps  -(so) 

Idfos  5200 

movf  fr0»-(sp) 

movf  frl,-(so) 

mov  r3»-(so) 
mov  $bu  f » r 1 
C I r r2 
c 1 r sign 
t s t f f r 0 

c f cc 
beg  zer 
pq  t If 
i nc  sign 
neqf  f rO 

1 : 

mod  f $one»fr0 

t s t f f r 1 

c f CC 
beo  I ss 

gt  r : 

mov  f frOf-(so) 

movf  frljfrO 

1 : 

mov  SbuftoPfhS 

1 : 

modf  tenth, frO 

movf  fr0,fr2 

movf  frl,fr0 

addf  Seos i 1 on , f r2 

modf  5ten,fr2 

movfi  fr3,r0 


1R2 


L. 


add 

S ' U , rO 

mo  vt 

r 0 , - ( r 3 ) 

i nc 

r2 

t St  f 

f r 0 

c f cc 
bne 

lb 

/ 

mo  V 

$bu  t » r 1 

1 : 

mo  vb 

(r3)  + , (p 

cmp 

p3»SbuftoD 

b 1 o 

lb 

/ 

mo  V f 

( so ) t » f r 

D r 

oad 

zer : 

i nc 

r^ 

b r 

oad 

1 ss : 

aec 

r 2 

mod  f 

S t en , f r 0 

t St  f 

c f cc 

f r 1 

beq 

1 ss 

i nc 

r 2 

j sr 

OC  f d i qi t 1 

oad : 

J s r 

oc  » d i q i t 
b r out 

b r 

oad 

d i a i t : 

CTD 

r 1 » Idu  f t OD 

b h i s 

1 f 

add 

i2 , ( so ) 

mod  f 

Sten, frO 

d i q i t 1 : 

mov  t i f r 1 f rO 

add 

O 

o 

mo  vb 

r 0 , ( r I ) + 

1 ; 

r t s 

cc 

/ 

out  : 

mov 

Sbu  t » rO 

and 

nod i g i t t r 0 

t s t 

e f 1 aq 

bne 

1 f 

add 

r2 , rO 

1 


cmp 

r 0 , 5bu  f 

b 1 0 

outout 

mo  vb 

( rO ) , r 3 

add 

$5 / r 3 

mo  vb 

r 5 » ( r 0 ) 

C mpb 

(rO),'S'9 

b 1 e 

1 f 

mo  vb 

S’O, (rO) 

cmp 

r 0 f Sbu  f 

bios 

2f 

i nc  0 

-CrO) 

b r 

lb 

mo  V b 

t' 1, (rOl 

i nc 

r2 

1 ; 

out ou t : 

mo V si gn , r 1 
mov  nodiqit»rO 
t s t e f 1 ag 
One  1 f 
ado  r2  j r 0 

1 : 

c 1 ro  bu  f ( r 0 ) 

mov  Shu^/fO 
mov  ( sp ) + » r 3 
movf  (SD)+’/fpl 

movf  (so)+»frO 

i Of os  ( sp^  t 

r t s PC 

epsilon  = 05711U 
one  - UO^OO 

ten  = ulO^O 

.data 

tenth : 0 573  1 a;  1^6314;  l Ub31 4;  140315 

nodi  git:  1 0 . 

.bss 


bu  f : 

.=. t40 

bu  f t oo : 

sign: 

. = .+2 

e f 1 ag : 

. = .+2 

• text 

/ C library-  floating  outout 
•alobl  floter 


f 1 o t e r : 

1 ; 

movf  *(r4)+,fr0 
j s r pc  » f c V t 
t s t r 1 
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beq  1 ^ 

mo vD  S ' ” f ( r 3 ) + 

1 ; 

t St  r2 
bqt  If 

movb  $'0»(r3)+ 

1 : 

C mo  nod  i g i t » r 2 
j 1 e 6 f 
mov  r2»rl 
bl  e If 

2: 

movb  (rO)t» (r5)+ 

sob  r 1 » 2b 

I : 

mov  nodi q i t » r 1 
beq  1 f 

movb  5 ' . » ( r 3 ) t 

1 : 

neg  r2 
b ) e If 

2: 

dec  p 1 
bit  If 

movb  S'0»(r3)+ 

sob  p2»2b 

1 : 

t s t p 1 
b I e 2f 

1 : 

movb  (p0)+# (p3)+ 

sob  p 1 f 1 o 

2: 

P t s oc 

6 : 

movb  5'?»(p3)+ 
sob  p2»6b 
Pt  s pc 

psc i en : 

mov  P 0 » nod i q i t 
t St  p2 
bne  1 f 

mov  Sb  f nodi q i t 

1 ; 

movf  (p^4)-f,fp0 

j s p PC  » ec  V t 
t St  P 1 
beq  1 f 

movb  S'"'»(p3)  + 

1 : 

movb  (p0)+/(p3)+ 

movb  i'.»(p3)-t- 


r 


mo  V 

nodi g i t » r 1 

dec 

r 1 

b 1 e 

1 f 

mo  vb 

(p0)+, (p3)+ 

SOD 

r 1 , 

2b 

mo  vb 

dec 

p2 

$ 'e, ( p3)  t 

mo  V 

r 2 , 

p 1 

bqe 
mo  vb 

1 f 

$ ' ( p3)  + 

neg 

r 1 

b r 

2f 

mo  V D 

$' +, (p5)t 

C t r 

r 0 

d i V 

$10 

. , pO 

add 

$ ' 0 

» p 0 

mo  vD 

pO , ( p 3 ) + 

add 

$ ’ 0 

t r 1 

mo  vb 

p 1 » ( p 3 3 + 

rt  s 

DC 

1 8o 


i nt  • s 


. q 1 ob 1 i n t 
.text 

one  = 040^00 
i n t : 


mo  V f 

*(r4)t»fr0 

mod  f 

Sone»fr0 

mo V t 

t r 1 » f r 0 

t s t f 

f r 0 

c^cc 

bqe 

1 f 

sub 

Sone  » ^ r 0 

rt  s 

pc 

1 <?n  . s 


. a 1 ob 1 1 en  » 1 enat  h 

• text 
1 en : 

1 engt  h ! 

tst  (ra)+  /poo  off  default 

mov  (.rU),r2  /cooy  address 
c 1 r r 0 

1 : 

t s t b ( r2 ) + 

Deg  2 f 
i nc  r 0 
b r lb 


1 e r q t ti 


2 


movif  rO,frO 


//  lenqth  now  ir,  frO  for  return 


1 i n dmp 


. a I olD  1 H nd'T'D 
. q 1 oD 1 St  dou t 
.text 


1 i ndmp  : 

mo V 5 1 » r 0 
movb  S ' 0 1 c h 
sys  write/  Ich;  1 
mov  ^80 . / St  dout  *2 
r t s pc 


mod  . S 


.g ' oD 1 

mod 

one  - OmO^OO 

• text 

mod  ! 

mo  V ^ 

*2  ( r^4  ) , f r 

d i V f 

*(r4), frO 

mod  ^ 

Some  » f r 0 

mu  1 ^ 

* ( r a ) , f r 1 

t s t 

* ( ) + 

mov  f 

* ( rU ) » f rO 

sub  f 

t r 1 » f r 0 

rt  s 

pc 

//  noD  staci< 


no  r r d r . s 


. g 1 OD  t no  r r d p 
.globi  numbstfERROR 
.text 
nb  p rd  r : 

mov  $PMjnnbst>p^ 

mov  S23.,rl  /length  of  nuT>oer  limited  to  25  digits 

c 1 P p2 

1 ; 

mov  S0,r0  /standaPd  input 

sys  pead;  pcp>/  1 
bes  badpead 

C mpb  , PC  b 

nit  of 

c mon  5 ' 0 » PC  b 
ogt  2f 

movb  pcb,(p3)+ 
sob  p 1 , 1 b 
b p of 

2: 

Cmob  I ' t rch 

bea  3 f 

cmob  S ' \ t f PC h 
beg  3 f 

C mob  S'  . , PC  b 

beg  S f 

C mpb  i ' - » PC  b 

beg  4 f 

cmpo  i ' + r PCb 
beg  3 f 
b p fe  f 
3; 

Cmp  p3»5numbst 
beg  lb 

cmp  r 3 , Snumb s t ♦ 1 
one  of 
t s t p2 
bne  of 
sob  p I f 1 b 
a : 

C mo  p3>  Snumbst 
bne  6 f 

movb  pcb,(p3)+ 
b p lb 
5: 

t s t r2 
bne  6 f 

movb  pcb» (p3)+ 
i nc  P 2 
sob  p 1 / 1 b 

6 : 

t St  p2 
bne  2 f 

movb  $'.»(p3)+ 
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2: 


movt)  S'\0»(r3) 
mov  Snu'Tibst»”(f'^) 
r t s DC 

baopead : 

jsr  rb»ERR0P 

<EHKOR  bad  syste""  call  nbrrdr\n\0> 
.even 
.data 

PC  h : . = . +2 

nu'Tibstt  . = .+  ^0. 


nuiTDt''.S 

. g 1 oO ) numpt  r 

.globl  numbrfnodiqit/Stdout  * floter,  ) inamo/tf^WOR 
• text 

numpt  r : 

mov  Jnumfcr»r3 
jsr  pCffloter 

sub  nod  i q i t , s t dou  t + <? 
t s t s t dou t *2 
bqt  1 f 

jsr  PC  » 1 i ndmp 
mov  380 . , stdout 

1 : 

mov  Snymp  r » r 3 
mov  nod i q i t » r 2 

2: 

mov  $ 1 / r 0 
movb  (r3)+»ncn 
svs  write;  nci^;  1 
sob  r2»2b 
mov  3 I / r 0 
movb  5 ' » nc  n 

sys  write  » nch;  1 
r t s pc 

nch;  . = . + 2 


MICROCOPY  RESOLUTION  TEST  CH/L9T 

NAflONAL  BURCAU  Or  SfANOARDS  J96J-.5 


r aa . s 


. q ) Ob  1 r ad » deg 
.text 
rad : 

mult  p i f f rO 
r t s pc 

Pi*-:  03661b;  01  75065;  01122U;  016a70b 

deg : 

mu  I f rd*-/  f rO 
r t s pc 

0ai5a5;  0273a0;  015ia3b;  07  703 


1 6'4 


. a 1 OD i rod 
.d)ot»l  rand 
manplusone  = OUUOOO 
rnd ; 

j s r DC  » rand 

movif  rO»frO 
divf  Sma X o ) usone » f r 0 

r t s PC 


S i n h . s 


. q 1 Ot3 1 S j nh 
.gt  Obi  exp 
• text 

onehalf  = 0^0000 

sinh:  //  sinh  funct  , 5 * ( e * * u-e * * -u ) 

movt  frO»sinhsave 
negf  f rO 
j s r pc  * exo 

movf  frOfSinhargl 
movf  sinhsave»fr0 
j s r pc / exo 
subf  sinharql/frO 
mulf  onehalfffrO 
r t S pc 

sirhsave;  .=.+8. 

sifinaral: 


r 


S t rcrr'p  . S 

, q 1 OD 1 S t r cmp 
• text 
St  romp ; 


2: 


a: 


5; 


mov  (r^4)  + »r2 
mov  ( rU  ) ♦•  * r 1 
mov  ( ) •♦■ » r3 

mov  ( ry  ) + » rO 
c 1 r r2 
c 1 r r 3 

movb  (r0)+,r2 
beq  2 f 
movb  (rl)+/r3 
beq  b t 
c mpe  r2  » r 3 
bit  4f 
bqt  5 f 
Or  lb 

movb  (rU  + ,r3  /checl<  to  make  sure  not  eaua) 

bne  y f 

mov  S0,-(ra)  / set  flag  to  eaual 

rt  s pc 

mov  Sl»r5  / set  less  than 

neq  r3  / *1  Is  Jess  than 

mov  r3f-(rU) 

Pt  S PC 

mov  $ 1 » “ ( r ^ ) 
r t S DC 
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S t rdr-p  . s 


. g 1 Ob l 

s t r dmc 

.g 1 Ob  1 

stdout »chfnumbr» 1 indmo/EHWOR 

• text 

s t rdmo : 

mo  V 

( rU ) + , r 5 

mov 

r5/  r 1 

sub 

r5,stdout+2 

t St 

stdout  +2 

bgt 

1 f / need  a new ) i ne 

j sr 

pc  » 1 i ndmp 

mov 

580 . , stdout  +2 

1 : mo  V 

( r ) + , r2 

2: 

mov 

51 , rO 

mo  vb 

( r2 ) + » c h 

beg 

5f 

sy  s 

write;  ch;  i 

sob 

r 1 / 2b 

r t s 

pc 

5; 

mov 

51  , rO 

mo  vb 

S'  , c h 

sy  s 

write  ; c h ; 1 

sob 

r 1 r Sb 

r t s 

pc 

.data 

numbr : . = . +20  , 

Ch;  .=.+2 

stdout : i ; 80  . ; 0 


s t r rdr  . s 


. q 1 ob 1 s t p rdr 
. q 1 Ob  1 ERROR 
.text 
s t r rd  r : 


mov  (ry)+»rl 
mov  t r^ ) + f r2 

1 : 

mov  S 0 / r 0 

sys  read  ! srch;  1 
bes  badread 
cmpb  S ' \n  » s rc  h 
oeq  2 f 

cmob  $ ' " » s rc  h 
beq  2 f 

mo vb  s r c h , ( r2  ) + 
sob  r 1 » 1 b 
2:  movb  $'\0»(r2) 
r t s pc 
bad  read ; 

j s r r 5 » ERROR 

<ERR0R  bad  system 


/lenqth  to  be  read 
/address 

/default  i nou  t 


/out  character  in  p 
/strino  full  yet? 
/all  strings  end  i n 


call  strrdr\n\0>; 


1 ace 
null 

• even 


s rc  h 


*2 


t ab . s 


. g 1 ob 1 tab 
. q 1 Ob  1 s t dou  t 
.text 
t ab : 


mo  V ^ 

* ( rU ) + , f r 0 

// 

tab  value 

mo  V f i 

f r 0 » r 3 

1 : 

cmo 

?80 . , r 3 

bqe 

2f 

sub 

$80 . » r3 

or 

lb 

2; 

mo  V 

s t dout  +2  » r 2 

//  char  left 

mo  V 

$80. , r 1 

sub 

r 3 » r 1 

// 

char  needed  at  eno 

cmo 

r 1 » r 2 

b 1 t 

3f  //  if 

qe  or 

qt  already  there 

mo  V 

r 1 , stoout  +2 

// 

new  end 

sub 

r 1 » r2 

// 

how  many  blanks? 

mo  V 

St dout  » rO 

a; 

fro vb  ? ' » t c h 

sys  write;  tct>;  1 

sob  r2»Ub 

3: 

rt  s DC 

• data 

tch:  *2 


t an  . s 


I 


. q 1 ob 1 tan 
.globl  cos»sin 
• text 

tan:  //  tan  function  sin/cos 

•qlobl  COS*sin 

mov  f fpOftansave 
j s p pc  » cos 
mov  f f pO  f t ancos 
mov  f tansave»fpO 
j s p DC  » s i n 

movf  tancoSffpl  //  test  fop  aiv  by  0 ans  infinity 

t St  f f P 1 
c f cc 
beq  If 

aivf  fpl»fpO 
Pt  s DC 
1 : 

movf  huqees t » f p I 

tstf  fpO  //  dIus  op  minus  infinity?? 

C f CC 

oqe  i.  f 
neg  f f p 1 
2: 

movf  fplffpO 
Pt  S DC 

tansave:  .=.+8. 

t ancos : . = . +8 . 

huqeest:  077777;  1 7 7 7 7 7 ; 1 7 7 7 7 7 ; 177777 


t-  • 


J 


va  I . s 


. g I Ob  1 va 1 
.text 
V a I : 

mo V Snum V s t » r 3 
t S t ( ry  ) ♦ 
mo  V (.  ) * f r 0 

mo  V . f r 1 

c 1 r r2 

mo vb  S'0» (r3)+ 

1 ; 


/ DOD  Stack 

/ get  starting  aodress 
/length  of  numoer  linited  to  22 

/ insure  at  least  a zero 


movb  (rO)+,vch 
cmob  S ' 9 , VC  h 
bit  6 f 

Cmob  $ ' 0 f VC  h 

bgt  2 f 

movb  vch,(r3)+ 
sob  r 1 f 1 b 
b r 6 f 

cmpb  S'  » vch 
oeg  3 f 

cmpb  $ ' » VC  h 

beg  3 f 

c mpb  $ ' . » V c ti 
beg  5 f 

cmpb  S ' ” » VC h 
beg  y f 

cmpb  S'  * f vch 
beg  3 f 
b r 6 f 

c mp  r3»  Snumvst 
beo  lb 

cmp  r 3 » Snum V s t +•  1 
bne  bf 

t St  r2 
bne  6 f 
sob  r I » 1 b 

cmp  r 3 r Snumvst 
bne  6 f 

movb  vchf(r3)+ 
or  lb 

t St  r2 

bne  6 f 

movb  vch,(r3}+ 
i nc  r 2 
sob  r 1 » 1 b 


b : 


digits 


t St  r2 
bne  2 f 

movb  S'.»(r3)+ 
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PROGRAM  listing 


UNIX  EXECUTIVE  PROGRAM 


i n t c f 1 aq ; 
i n t 1 f 1 ag ; 
i n t o f 1 aq ; 
i nt  r f 1 aq; 

i n t S f 1 aq ; 

i n t t f 1 aq ; 

i n t V f ) aq ; 

char  *avl50); 

char  *bp  r oq » 

char  *nist(50l; 

char  *ql  "/usr/qraqh/conie.o"; 

char  "/usr/lib/libt.a"; 

char  *qi  "/usr/qraon/rmtKSijb.o"; 

char  *qa  "/usr/qraDh/rroresub.o"; 

char  *q5  "/usr/qraoh/vq.a"; 

char  *passO  "/usr/basic/haxcompS"; 

char  *passl  "/bin/as"; 

char  *oass2  “/bin/ld"; 

char  *oass3  "/bin/rm"; 

char  tsIlOOOl; 

char  *tsp  tsJ 

main  ( a rqc  » a rqv ) 
char  *arqv  t I » { 

char  *t ; 

int  i»  j»  bflaq/  nl/  nxo! 


i =bf 1 ag=nl =nxo=0; 
while  (++i  < arqc)  ( 

if  (arqvlil  fO]  == 

Switch  (aravlil  111)  { 

default: 

goto  oassa; 

case  'S':  //produce  as-1anguage 

s f 1 aq  + + ; 
b f 1 ag+  +• ; 
break ; 

case  'o':  //produce  object  file 

o f 1 aq ♦ + ; 
break  ; 


case  'C':  //aooenq  C library  for 

1 f 1 ag  + + ; 
break  ; 
case  ' c ' : 

c f I aq  + + ; 

1 f 1 ao  + + ; 


?0iJ 


1 oade  r 


//append  conoqraphics  library 


//aopena  tel<tronics  library 


case  ' t ' : 

t n ag  ; 

1 f 1 aq  ; 
break; 

case  *r':  //aooena  ra-ntek  library 

r f 1 ag  + + ; 

I f 1 aq  + + ; 
break/ 

case  'v':  //aboend  v g library 

V f 1 ag  + + ; 

1 f 1 ag  + + / 
break ; 

} 

else  { 
passa : 

t = a rg V [ i 1 ; 

if  (qetsuf(t)=='h')  { //is  file.b  an  araunent? 
b f 1 aq+  + ; 
b D r o q = t ; 

t = setsuf(t/'o');  //if  SO/  create  file.o 

} 

if  ( nodup ( 1 1 i s t / t ) ) { //does  file.?  exist  as  a 

llistfnl+  + ) = t;  //  previous  arguTient? 

if  (qetsuf(t)  ==  'o')  //is  argu.Tent  file.o 
n X o + + / 

> 

) 

> 

if  ( J b f 1 ag ) 

goto  nocon;  //no  file.b  source  orogran 

avtO)  = "baxcomp";  //  available  for  conoilation 

a V 1 1]  = bo  rog ; 
a V [(?)  = 0 ; 

if  ( c a 1 1 s y s ( pas s 0 / a V ) !=  0)  { 

printf("Procedure  terminated  at  compilation  state. \n"); 
ex  1 t ( ) ; 

} 

if  ( i ( b f 1 ag ! I o f 1 ag ) ) exitC  ); 
t = setSuf(bproq/'s'); 
av(0)  = "as"; 

av  in  = 

av[2)  = t; 

avl3J  = O; 
callsysCoassl/av); 
if  ( o f 1 ag ) { 

t = set suf (borod/ ' o ' ) ; 
u n 1 i n k ( t ) ; 

if  (link("a.out"/t)) 

printf("link  fail  %s\n"/t); 
unlink("a.out"); 
ex  i t ( ) ; 

) 

noc om  : 


r 


i = o; 

avlOl  = "Id"; 
avin  = "-X"; 
if  ( ! b f 1 aa ) 

av[2]  = t; 

else 

avl2)  = "a.ouf; 

av(3I  = "/usr/basic/basiclib.a"; 

j = 

w^ile  (j<nl+3) 


a V 1 j ♦ + ) 

r 

1 1 i s t [ + ♦ i 1 ; 

i f 

( c f 1 aq ) 
a V 1 j ♦ 1 1 

= 

gl  ; 

i f 

( t f 1 ag) 

{ 

//three  passes  are  needed  due  to 

a V [ j + ♦ ] 

= 

q2;  //archiving  of  liorary 

av  1 j 

= 

q2; 

} 

i f 

av  1 i ♦♦] 

= 

q2; 

( r f 1 ag ) 

{ 

a V [ j t ♦] 

z 

q3; 

> 

i f 

av  t j ♦+■] 

q4  ; 

( V f 1 aq ) 
av [ j t + ] 

qS  ; 

i f 

( 1 f ) ag ) 
av 1 j + + 1 

- 1 c " ; 

a V 

( j + + ) = " 

-1 

a" ; 

a V 

II 

O 

f 

i f 

( c a 1 1 s V s ( oas s2 / a V ) 1=  0)  { 

printf("Procedure  terminated  at  load  state. \n")r 
e X i t ( ) ; 

y 

if  (sflaq)  exitC  ) t 
t = set  suf ( t f ' s ' ) ; 
av[0J  = "rm"; 

a V [ 1 1 = t ; 

av  12J=0; 

c a 1 1 s y s ( oa s s 3 » a V ) ; //remove  file.s  since  not  soecifieo 
e X i t ( ) ; 


qetsuf(as) 
cbar  as  []  ; 

reqister  int  c ! 
reqister  char  *s; 
reqister  int  t; 


s = as; 
c = 0 ; 
wh i 1 e ( t = 
if  ( t 
c 

else 


* s ♦ + ) 
= '/'  ) 
= o; 
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c + + ; 


s =-  3; 

if  (c<=M  (iSi  c>?  *stt  = ='.') 

return ( *s  ) » 
return(O); 


setsuf(as»  c*^) 
char  a s U ; 

register  char  *s»  *si; 

s = si  = coDy(as); 
wh i 1 e ( * s ) 

if  ( *s  + + ==  ' / ' ) 

si  - s ; 
s [- 1 ] = c h ; 

re t urn ( s 1 ) ; 


ca)lsys(f»  v) 
char  f[]»  *vli;  1 
int  t r status; 

if  ((t=fork())==0)  { 

e*ecv(f»  v); 

orintf("Can't  find  %s\n",  f); 
e* i t ( 1 ) ; 

> else 

1 f (t  ==  -1  ) { 

Drintf("Try  aqainVn"); 
r e t u rn ( 1 ) ; 

> 

while(tl=»/ait(Astatus)); 
if  ( ( t= ( status&0377 n 1=  0 ii  tl=iu)  { 
if  (tl=2)  /*  interruDt  */ 

orintf("Fata1  error  in  Xs\n"»  f) 
e* i t ( ) ; 

} 

r e t u rn (( s t a t us> >8 ) % 0577); 


copy ( as ) 
char  as  [1  ; 

( 

register  char  *otsp»  »s; 

ot  sp  = t sp; 
s = as ; 

wh i 1 e ( *t SP++  = *s+f); 
return(otsp); 


nodup (If  os  ) 
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char  * » 1 , *os ; 

( 

regi ster  char  , *s; 
req i s t e r i nt  c ; 

s = os; 

i f (get suf (s  ) i = ’o') 
return  ( 1 ) ; 
whileCt  = *1++)  { 
whileCc  = *s++) 

i ^ (c  ! = + + ) 

break; 

if  ( *t  == ’ \0  ' &&  c = = ' \0 ' ) 
return(O); 
s = os ; 

} 

re  t u r n ( 1 J ; 
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